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FOREWORD 


Your  first  hours  with  your  new  computer  can  be  bewildering. 
Once  you’ve  run  through  the  sample  programs  given  in  the 
manual,  you’re  likely  to  think:  “Yes,  but  now  what?”  This 
book  is  intended  to  answer  that  question.  It  will  teach  you 
everything  you  need  to  know  about  how  to  program  your 
con:q>uter  from  first  principles  right  up  to  quite  sophisticated 
programming  techniques.  And  while  you’re  entering  the  pro¬ 
grams,  zapping  aliens  and  asteroids  all  over  the  place,  you’ll 
discover  that  you’re  actually  learning  a  lot  about  program¬ 
ming,  and  about  computers  in  general — all  without  any  effort 
at  all. 

This  book  is  intended  to  be  a  tool,  to  be  woriced  through 
with  your  computer  turned  on  beside  you.  Its  value  will  be 
greatly  diminished  if  you  simply  try  to  read  through  the 
programs.  It  would  be  better  to  enter  each  program  as  you 
come  to  it,  leaving  no  alien  unzapped.  That  way,  you’ll  gain 
the  maximum  benefit  from  the  book,  and  you’ll  be  a  pro¬ 
gramming  whiz  before  you  know  it. 

It’s  time  to  get  underway.  Plug  in  your  computer,  turn  on 
your  TV,  and  let’s  get  going. 


INTRODUCTION 
Finding  your  way  around 

the  keyboard 


The  first  time  you  look  at  the  T/S  1000  keyboard  it  is  likely 
t  to  cause  some  surprise.  In  addition  to  numbers  and  letters 
(more  or  less  where  you  would  expect  them  to  be  on  a 
!  typewriter  keyboard,  there  seems  to  be  a  bewildering  collec- 
!  tion  of  odd  symbols  and  words  on  the  keys,  with  other  words 
!  above  and  below  the  keys.  Trying  to  figure  out  how  to  get 
I  what  you  want  from  a  key — and  some  keys  can  produce  as 
I  many  as  five  different  results — can  seem  very  difficult.  But  it 
is  not. 

The  computer  is  designed  so  that  it  knows,  more  often  than 
not,  which  of  the  five  possibilities  you  will  need.  And  when 
the  computer  cannot  tell  from  the  context  of  what  you’re 
typing  which  part  of  the  key’s  possibilities  you  want,  it  is 
very  easy  to  instruct  it.  Plug  in  your  T/S  1000  as  shown  in  the 
manual  which  came  with  your  computer.  An  inverse  K  (a 
white  K  on  a  little  black  square)  will  appear  in  the  bottom 
left-hand  comer.  This  is  called  the  cursor,  and  it  is  the  key  to 
working  out  which  possibility  you’ll  get  when  you  press  a 
key.  If  the  cursor  is  a  K,  you’ll  get  numbers  or  keywords  (the 
words  in  white  above  the  keys).  We’ll  look  at  keywonis,  and 
the  other  possibilities,  in  more  detail  shortly.  If  the  cursor  is 
an  inverse  L,  the  keyboard  works  more  or  less  like  a  type¬ 
writer.  That  is,  you  press  the  S  key,  and  the  letter  S  appears 
on  the  screen.  The  other  two  possibilities  for  the  cursor  are  an 
F  (function  mode)  or  a  G  (graphics  mode). 

The  SHIFT  key  (the  one  with  the  word  SHIFT  in  red,  in 
the  bottom  left-hand  comer  of  the  keyboani)  allows  you  to 
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get  the  words  and  symbols  written  in  red  on  the  keys,  as 
you’ll  see  in  a  moment. 

SLOW/FAST 


When  you  first  turn  on  the  computer,  it  is  in  SLOW  mode. 
In  SLOW  mode,  looking  after  the  smoothness  of  the  televi¬ 
sion  picture  is  considered  more  important  than  “thinking,” 
so  the  computer  does  its  thinking  between  sending  picture 
information  to  the  television.  The  programs  in  this  book  are 
designed  to  be  run  in  SLOW  mode,  so  the  computer  is  in  the 
correct  mode  for  running  them  automatically.  In  FAST  mode, 
the  computer’s  thinking  is  considered  more  important  than 
looking  after  the  picture,  which  can  become  very  jerky. 

However,  it  is  much  easier  to  enter  a  program  into  the 
computer  when  it  is  in  FAST  mode,  so  we  need  to  be  able  to 
switch  between  the  modes  at  will — FAST  to  get  a  program 
into  the  computer,  SLOW  for  running  it. 

As  I  said,  the  computer  is  in  SLOW  mode  automatically 
when  you  turn  it  on.  To  get  into  FAST  mode,  press  on  the 
SHIFT  key  (remember,  it’s  in  the  bottom  left-hand  comer  of 
the  keyboard),  then  press  the  F  key  (which,  as  you’ll  see,  has 
the  word  FAST  written  on  it  in  red).  The  word  FAST  should 
appear  on  the  screen.  Now  press  the  ENTER  key  (second 
from  the  bottom,  on  the  right-hand  side),  and  you’ll  see  the 
screen  jump,  and  the  message  0/0  appear  in  the  bottom 
left-hand  comer  of  the  screen.  This  message — 0/0 — ^means 
“all  OK.” 

Now  press  any  key,  and  you’ll  see  the  display  jumping 
about,  liiis  is  what  FAST  mode  looks  like — far  less  attractive 
to  watch,  but  easier  to  use  for  program  entry. 

You  may  find,  when  you  write  your  own  programs,  that  the 
speed  of  SLOW  is,  in  fact,  too  slow  for  your  liking.  This  can 
happen  when  the  computer  must  do  a  great  deal  of  work  to 
determine  an  answer,  and  in  this  sort  of  program — when  the 
display  is  less  important  than  getting  a  quick  answer — ^you 
should  run  your  programs  in  FAST.  However,  for  many 
programs  (such  as  the  ones  in  this  book)  the  T/S  1000  is  still 
fast  enough  in  SLOW  for  our  needs. 

To  get  back  into  SLOW  mode  from  FAST,  hold  down  the 
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SHIFT  key  again,  then  press  the  D  key  (where  the  word 
SLOW  is  written  in  red).  The  display  will  lock  on,  and  the 
“all  OK”  message  will  appear  on  the  screen.  From  now  on, 
we’ll  assume  that  you  have  your  computer  in  FAST  mode 
when  you  enter  programs,  and  in  SLOW  mode  when  you  run 
them. 


Keywords 


The  words  written  in  white  above  many  of  the  keys  are 
ke)nvords.  These  are  the  fundamental  words  from  which  pro¬ 
grams  are  built.  When  you  write  a  program,  as  we’ll  discuss 
in  more  detail  shortly,  you  start  with  a  number  (the  line 
number),  then  follow  this  with  a  keyword,  and  then,  general¬ 
ly,  some  additional  material. 

Here’s  an  example  to  make  it  clear.  Make  sure  your  com¬ 
puter  is  empty.  You  can  do  tfiis  by  turning  off  the  power, 
waiting  a  few  seconds,  then  turning  it  on  again.  This  is  not  the 
best  way  to  clear  the  contents  of  the  computer’s  memory  (the 
word  NEW  above  the  A  key  is  designed  to  do  it),  but  this 
method  is  the  simplest  at  this  stage. 

Once  the  computer  is  empty,  type  in  the  number  10.  It  will 
sit  down  at  the  bottom  of  the  screen.  The  10  is  a  line  number, 
an  idea  which  will  be  discussed  in  a  little  more  detail  shortly. 
Now  press  the  P  key,  and  you’ll  see  the  word  PRINT  appear 
on  the  screen,  just  after  the  10.  The  keywords  appear  auto¬ 
matically  after  a  line  number.  Now  press  ENTER  and  you’ll 
see  the  program  line  move  up  to  the  top  of  the  screen,  which 
means  it  has  been  accepted  by  the  computer. 


Functions 


Functions  are  the  words  in  white  under  many  of  the  keys. 
You’ll  meet  functions  (such  as  LEN,  INKEYS,  and  AT) 
many  times  in  this  book.  You  get  into  the  junction  mode 
(when  the  inverse  K  cursor  turns  into  an  inverse  F)  by 
holding  down  the  SHIFT  key,  and  then  pressing  the  ENTER 
key,  which  you  can  see  has  the  word  FUNCTION  on  it  in 
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red,  above  the  word  ENTER.  When  you  do  this,  you’ll  see 
the  cursor  has  turned  into  an  inverse  F.  Now  press  the  C  key , 
and  the  word  AT  should  appear  on  the  screen.  Try  the  B  key 
(to  get  the  word  INKEYS^  and  the  P  key  (to  get  TAB), 


Operators 


The  opwators  are  link  and  comparison  words  and  symbols 
like  THEN,  AND,  TO,  and  <>.  You  get  these  by  holding 
down  the  SHIFT  key,  Aen  pressing  the  key  for  the  operator 
you  want.  Clear  the  computer  as  before,  then  hold  down  the 
SHIFT  key  and  press  U.  Ttie  dollar  sign  should  appear.  Press 
2  and  you’ll  get  (he  word  AND,  3  for  THEN,  and  4  for  TO. 

The  word  in  red  on  the  1  key — EDIT — has  a  special  func¬ 
tion.  It  is  used  to  bring  a  line  down  from  the  top  of  the  screen 
(where  it  has  been  accepted  into  the  computer’s  memory  as 
part  of  a  program)  to  the  bottom  of  the  screen  so  you  can 
change  or  edit  it  in  some  way. 

To  show  this  in  action,  clear  the  computer,  then  type  in  the 
following: 

±0  PRINT  6 

Press  ENTER  and  this  line  will  move  to  the  top  of  the 
screen.  Now  hold  down  the  SHIFT  key,  and  press  the  1  key, 
and  the  line  will  reappear  at  the  bottom  of  the  screen.  Still 
holding^down  the  SHIFT',  press  the  8  key  (where  you’ll  see  a 
little  arrow  pointing  to  the  right),  and  you’ll  see  the  cursor 
move  ^ross  the  word  PRINT  to  rest  between  it  and  the  6. 
Press  the  8  key  again  (still  holding  down  SHIFT),  and  the 
cursor  will  jump  over  the  6.  The  word  DELETE  is  on  the  0 
key  (note  that  Ae  zero  has  a  line  through  it  to  distinguish  it 
from  the  letter  O).  Still  holding  down  SHIFT,  press  the  0  key 
once,  and  the  numbw  6  will  be  erased.  Take  your  finger  off 
the  SHIFT,  and  press  the  5  key,  to  see  the  number  5  appear  at 
the  eiKl  of  the  line.  What  you  have  at  the  bottom  of  the  screen 
should  look  like  this: 

1©  PRINT  5 

Now  press  ENTER,  and  the  line  will  appear  at  the  top  of 
the  screen,  taking  the  place  of  the  previous  one. 
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Graphics 


TTie  final  mode  we’ll  discuss  is  the  graphics  mode. 

Clear  the  computer’s  memory  with  NEW  (SHIFT,  then 
press  the  A  key  so  the  word  NEW  appears,  then  press  ENTER). 
Now  type  in  the  number  10,  then  press  %e  P  key,  so  the 
keyword  PRINT  appears.  You  should  have  this  at  the  bottom 
of  the  screen: 

10  PRINT 

Now  hold  down  the  SHIFT  key,  and  press  the  P  again,  and 
a  pair  of  quote  marks  will  appear.  Still  holding  down  SHIFT, 
press  the  9  key,  and  the  cursor  will  turn  into  a  G,  meaning 
the  computer  is  in  the  graphics  mode.  Now  type  in  the  word 
TEST,  and  you’ll  see  it  appears  in  white  letters  on  little  black 
squares,  rather  than  in  black  letters  on  the  ordinary  white 
background.  Holding  down  the  SHIFT  again,  jpress  the  9  key 
again,  and  the  inverse  G  will  turn  back  into  an  L.  Still 
holding  down  SHIFT,  press  the  P  key  for  the  closing  quote 
marks.  Now  press  ENTER  and  the  following  line  should 
appear  at  the  top  of  the  screen: 

1©  PRINT 

Run  this  program  (by  pressing  the  R  key  to  get  the  word 
RUN  at  the  bottom  of  the  screen,  then  pressing  the  ENTER 
key),  and  the  word  TEST,  in  white  letters  on  a  little  black 
background  strip,  will  appear  at  the  top  of  the  screen.  If  you 
are  in  the  graphics  mode,  and  you  hold  down  the  SHIFT  key 
while  pressing  many  of  the  keys,  instead  of  an  inverse  letter, 
you’ll  get  the  little  patterns  and  designs  on  the  keys.  These 
can  be  used  to  build  up  pictures. 

We’ve  now  covered  the  basic  handling  of  the  keyboard.  We 
do  not  expect  that  you’ll  understand  ail  of  this  instantly.  You 
will,  from  time  to  time,  have  to  refer  back  to  this  section. 
You  should,  however,  quickly  master  the  fundamentals  of  the 
keyboard,  and  the  need  to  refer  to  this  introductory  section 
will  diminish  as  time  goes  on.  We  suggest  you  read  dirough 
I  this  section  again  before  continuing. 


CHAPTER  1 
The  PRINT  statement 


PRINT  is  probably  the  most-used  command  in  BASIC.  It  is 
the  command  which  allows  the  computer  to  communicate 
with  you.  Type  the  following  line  into  your  computer,  and 
then  press  ENTER: 

PRINT  S 

You’ll  see  that  the  computer  obediently  prints  the  number 
5.  You  can  use  the  PRINT  command  to  make  your  com¬ 
puter  act  as  a  calculator.  Enter  the  following,  and  then  press 
ENTER; 

PRXKT  5 -3 

When  you  press  ENTER,  you’ll  see  it  prints  up  the  correct 
result.  This  direct  calculation  mode  can  work  out  problems  as 
complex  as  you  wish.  Try  the  following,  remembering  to 
press  ENTER  after  you’ve  done  so  to  make  the  computer  act 
on  what  you’ve  typed  in: 

PRINT  S©R 

This  asks  the  computer  to  PRINT  the  square  root  (that’s 
what  SQR  means)  of  the  sum  of  the  numbers  in  parentheses, 
that  is,  the  square  root  of  9.  If  your  computer  is  function¬ 
ing  correctly,  you  should — of  course — ^get  an  answer  of  3. 

So  you  can  see  that  PRINT  can  be  used  in  the  direct 
mode  to  print  out  numbers  and  the  results  of  calculations. 
It  can  also  print  out  words.  Type  the  following,  then  press 
ENTER: 

PRINT  HI  TH^PE 

Instead  of  happily  printing  HI  THERE,  the  computer  comes 
up  with  what  is  called  an  error  message.  In  this  case,  the 
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error  message  reads  2/0,  meaning  that  a  variable  has  not  been 
found.  If  you  want  the  computer  to  print  out  words,  the 
words  must  be  enclosed  within  quotation  marks.  Enter  and 
run  (that  is,  press  ENTER  after  typing  in)  the  following: 

PRINT  '‘HI  THERE" 

YouTl  see  the  words  HI  THERE  appear  at  the  top  of  the 
screen. 

To  r^ap  quickly,  simply  used  as  a  command,  PRINT  2  +  3 
will  tell  the  computer  to  print  out  the  result  of  that  addition. 
Entering  PRINT  “WORDS”  will  get  the  computer  to  print  out 
everything  which  is  within  the  quote  marks. 

Computers  use  programs,  and  it  is  now  time  to  write  our 
first,  simple  program.  Enter  and  run  this  program.  When  you 
run  Ais,  which  you  do  by  pressing  the  R  key,  and  then  pressing 
ENTER,  you  should  see  a  printout  similar  to  that  which  is 
below  the  program  listing. 


REM  PROORHH 

ONE 

S0 

PRINT 

"THIS 

IS  R  DEMONSTRRT 

ION" 

30 

PRINT 

4-0 

PRINT 

S- 

50 

PRINT 

"THIS 

IS  THE  END" 

THIS 

IS  R 

DEMOMSTRRT ION 

1 

SL 

THIS  IS  THE  END 

While  we  have  this  program  in  the  computer,  let’s  learn  a 
little  more  about  programs.  Enter  the  word  LIST  (which  you 
do  by  pressing  the  K  key),  and  then  press  ENTER.  You’U'see 
that  the  program  listing  comes  bacL  Notice  that  every  line 
starts  with  a  line  number.  The  first  line,  in  this  case  num¬ 
bered  10,  starts  with  the  word  REM.  REM  is  computer  talk 
for  remark.  It  is  used  in  a  program  when  you  want  to  explain 
what  is  going  on  within  that  program,  or  what  program  it  is 
(as  in  this  case),  so  that  when  you  return  to  it  later,  you’ll 
know  what  is  going  on.  The  computer  ignores  REM  state¬ 
ments  when  it  comes  to  them. 

A  REM  statement  is  made  up  of  a  line  number,  then  the 
word  REM,  and  some  text.  The  message  which  follows  the 
word  REM  can  be  made  up  from  anything  you  like — letters. 
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numbers,  punctuation  madcs,  graphics,  or  spaces — although  it 
is  best  to  keep  tlie  messages  as  brief  and  clear  as  you  can. 
Although  anything  typed  after  the  word  REM  is  ignored  by 
the  computer  when  it  is  running  a  program,  a  REM  line  still 
uses  up  memory. 

REM  statements  are  often  like  the  following; 

10  Rew  THXS  WORKS  OUT  thB  SCORE 

1©  REM  FXMD  THE  RMC1_E 

There  is  no  reason  why  there  should  be  just  one  REM 
statement,  but  if  the  commentary  you  wish  to  add  to  a 
particular  line  of  a  program  is  one  which  may  take  up  more 
than  one  line  of  text,  it  is  important  to  place  the  word  I^M  at 
the  beginning  of  each  new  line.  For  example: 

SO  REM  THE  MUL.TXP!_ICMT10H 
ROUTINE  IN  WHICH 

70  REM  THE  TWO  URRIRBCES 
R  RND  B 

S0  REM  RRE  MUI-TIPI.IED  TOGETHER 

So  long  as  each  REMaik  line  starts  with  the  word  REM, 
tfie  computer  will  ignore  the  text  that  follows  on  that  line 
(although  the  complete  program  listing,  REMs  and  all,  will 
printed  on  the  screen  if  a  LIST  is  requested). 

Now,  let’s  have  a  look  at  editing.  Type  in  the  number  10, 
then  .press  ENTER,  press  LIST,  and  press  ENTER  again. 
You’ll  see  your  program  reappear  as  follows.  Line  10  has 
disappeared.  It  is  very  easy  to  get  rid  of  lines  you  don’t  want 
in  a  computer  just  by  typing  in  the  relevant  line  number  and 
then  pressing  ENTER. 

i©  REM 

20  PRINT  "THIS  IS  R  DEMGNSTRRT 

ION" 

30  PRINT  i 

4.0  PRINT  2 

S©  PRIbfT  "THXS  IS  THE  EMC" 

You’ll  recall,  from  the  times  you’ve  pressed  LIST  while 
working  through  this  section,  that  LIST  is  the  BASIC  com¬ 
mand  which  we  use  to  get  the  computer  to  print  out  the  entire 
program  it  is  currently  holding.  All  the  lines  in  the  program 
are  LISTed  in  numerical  order,  rather  than  in  the  order  in 
which  they  were  entered  into  the  computer.  That  is,  the 
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computer  automatically  sOTts  its  lines  into  order.  Type  in  the 
following,  and  then  press  ENTER. 

15  PRINT  "THIS  IS  «  NEWLINE" 


You’ll  see,  in  the  next  program,  that  the  new  line  (15) 
automatically  moves  to  its  correct  position  within  the  listing. 


lO 

IS 

REM 

PRINT 

"THIS 

IS 

R’  NEWLINE" 

20 

PRINT 

"THIS 

IS 

ft  DEMONSTRRT 

ION" 

30 

4.0 

50 

PRINT 

PRINT 

PRINT 

2 

"THIS 

IS 

THE  END**^ 

As  you’ve  no  doubt  realized,  the  RUN  conunand  is  used  to 
start  the  computer  operating  on  a  program  which  you  have 
entered  into  the  computer,  either  by  typing  it  in,  or  by 
loading  a  program  in  from  a  casseUe.  The  computer  executes 
all  the  lines  stored  in  its  memory,  starting  from  the  lowest 
number,  and  working  through  in  order.  Various  commands 
can  make  the  computer  loop  back  cm  itself,  but  in  essence  the 
computer  works  through  a  program  in  line  number  order, 
unless  told  to  do  otherwise. 

If  you  want  the  program  to  stop  at  a  particular  point,  you 
can  use — naturally  enough — a  command  called  STOP.  Type 
in  25  STOP  (from  the  A  key,  while  holding  down  SHIFT), 
then  press  ENTER,  then  run  the  program.  It  will  print 
out: 

THIS  IS  R  NEWLINE 

THIS  IS  R  C^eH0NSTRRTX0^4 

Then,  at  the  bottom  of  the  screen,  will  be  the  message 
9/25,  which  means  a  STOP  was  executed  at  line  25. 

We’ll  return  to  look  at  PRINT  in  a  little  more  detail  later 
on,  but  there  is  one  more  command  I’d  like  to  introduce  now. 
The  command  NEW  will  erase  any  program  from  the  com¬ 
puter’s  memory,  and  should  always  be  used  to  remove  any¬ 
thing  from  the  memory  before  you  start  writing  a  new  program. 
If  you  don’t  do  this,  and  you  use  different  line  numbers  for 
the  second  program,  you’ll  find  the  new  lines  may  well  be 
interwoven  with  the  lines  from  the  old  program.  The  NEW 
command  is  brutal,  and  final,  causing  the  computer  to  dra- 
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matically  forget  everything  you  had  typed  in,  or  loaded  in 
from  tape. 

Try  it  now  on  your  computer.  Type  in  NEW  (from  the  A 
key),  press  ENTER,  then  press  LIST  and  press  ENTER 
again.  You’ll  find,  not  unexpectedly,  that  no  listing  appears. 
Try  LIST  10,  and  you’ll  get  the  same  result. 


PRINT  formatting  and  TAB 


To  continue  our  exploration  of  the  PRINT  command,  enter 
and  run  the  next  program. 


1© 

a© 

3© 

4.0 

5© 

REM  PRINT  FORMATS 
PRINT 

PRINT 

PRINT 

PRINT 

55 

PRINT 

“HI  " ; 5S 

7© 

PRINT 

..“HI  '“.jT© 

S© 

PRINT 

la 

90 

PRINT 

1 ..  a 

10© 

PRINT 

..  1 

11© 

PRINT 

..  !..•  a 

Follow  this  explanation  carefully,  and  you  should  learn  a 
lot  about  the  way  the  computer  formats  its  print  output.  You 
can  then  use  what  you’ve  learned  to  arrange  output  of  your 
own  programs  as  you  wish.  I’ll  go  through  the  program  line 
by  line: 

10  Title  of  the  program.  This  is  shown  as  a  REM  state¬ 
ment. 

20-50  Each  of  these  PRINTS,  with  nothing  following,  prints 
a  blank  line,  moving  the  next  print  position  down 
a  line.  This  explains  the  gap  at  the  top  of  the  screen 
when  you  run  the  program. 

55  This  prints  the  word  HI  and  then,  leaving  a  space, 
prints  the  number  55,  so  you  know  which  line  it 
comes  from. 

70  The  comma  (SHIFT  the  period,  near  the  bottom  right- 
hand  comer  of  the  keyboard),  as  you  can  see,  moves 
the  start  of  the  line  halfway  across  the  screen. 

80  This  allows  the  numbers  1  and  2  to  be  printed  close 
together.  Note  that  even  if  there  is  a  space  between 
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the  numbers  in  the  program  (as  in  PRINT  1  2), 

the  computer  will  still  print  them  as  12. 

90  This  line  uses  commas  between  the  numbers  to  ensure 
that  they  will  be  printed  in  separate  halves  of  die  screen. 
100  The  comma  at  the  beginning  of  the  line  moves  the  1 
halfway  across  the  screen,  just  as  the  word  HI  was 
moved  in  line  70. 

110  The  semicolon  between  the  numbers  ensures  that 
they  are  printed  hard  up  against  each  other,  just  as 
they  were  in  line  80. 

You  can  use  the  comma  and  semicolon  within  PRINT  state¬ 
ments  to  produce  the  screen  display  you  need.  Clear  the 
program  with  NEW,  then  enter  and  run  the  next  series  of 
programs,  to  produce  a  number  of  effects, 

'Hie  first  program,  called  PRINT  TWO,  simply  prints  the 
numbers  1  to  10  down  the  side  of  the  screen.  The  next  one 
(PRINT  TWO  -  B)  prints  them  hard  up  against  each  other. 
PRINT  TWO  -  C  prints  them  in  neat  little  columns,  and  PRINT 
TWO  -  D  prints^out  the  numbers,  again  from  1  to  10,  with  a 
single  space  between  them. 

As  we  mentioned  at  the  beginning  of  the  book,  there  are  a 
number  of  operator  and  link  words  which  are  printed  in  red 
on  the  keyboard.  You  get  these  by  holding  down  the  SHIFT 
key,  then  pressing, the  corresponding  key.  In  line  20  of  the 
next  four  programs  you  will  the  word  TO.  You  get  this 
by  holding  down  SHIFT,  and  pressing  the  4  key. 

10  REM  PRINT  TWO 

20  FOR  v.i=2.  TO  10 

30  PRINT  U 

4.0  NEXT  J 

10  REM  PRItTT  TWO  -  B 

20  FOR  W=1  TO  10 

30  PRINT  W; 

4-0  NEXT  W 

1©  P.EH  PRINT  TWO  -  C 

a©  FOR  ‘J-l  TO  lO 

3©  PRINT  U, 

4.0  NEXT  W 

lO  REM  PRINT  TWO  -  D 

2©  FOR  J=1  TO  10 
30  PRINT  W; " 

4.0  NEXT  vJ 


CHAPTER  2 
The  use  of  TAB 


TAB  (for  tabulate)  is  a  command  which  can  usefully  be 
combined  with  PRINT.  It  moves  the  PRINT  position  across 
the  number  of  spaces  specified  following  the  number.  Enter 
programs  PRINT  TWO  -  E  and  PRINT  TWO  -  F  and  see  the 
effect  of  the  TAB  command  in  these. 

10  REM  PRINT  TWO  ^  E 

20  FOR  TO  10 

30  PRINT  TR©  W; J 

4-0  NEXT  W 

10  REH  PRINT  TWO  -  F 

20  FOR  Wal  TO  10 
30  PRINT  TRB  .3»J;  W 

4.0  NEXT  W 

Our  next  program  shows  TAB  in  use.  When  you  run  the 
program,  you’ll  be  asked  to  enter  a  number  under  30.  Enter  a 
positive  integer  (that  is,  do  not  enter  3.4  or  7.65)  and  you’ll 
see  the  “X”  prints  with  your  number  of  spaces  in  front  of 
it.  Run  this  for  a  while,  then  stop  it  by  entering  any  letter 
except  A.  (Note,  by  the  way,  that  SCROLL  is  on  the  B  key, 
and  it  has  the  effect  of  moving  the  PRINT  position  to  the 
bottom  of  the  screen,  moving  everything  already  on  the  screen 
up  by  one  line.) 

10  REM  TRB  DEMONSTRATION.. 

20  SCROLL. 

30  PRINT  "GIUE  ME  R  NUMBER  UNP. 
ER  30  •• 

4-0  INPUT  R 

S©  SCROLL 

60  PRINT  TRB  R;  ’’X" 

70  SCROLL 

S0  PRINT  ”THE  X  IS  PRINTED  WIT; 
H  ;  R 
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3©  SCROLL- 
le©  PRXhTT  *'SPFK:ES 
T" 

11©  SCROLL 
120  »30T0  2© 


CHAPTER  3 
SAVEing  programs 


You  may  wish  to  keep  a  permanent  copy  of  any  of  your 
programs.  You  can  save  programs  by  typing  in  the  program, 
connecting  up  your  cassette  recorder  as  shown  in  the 
manual,  then  typing  in  SAVE  followed  by  the  name  of 
the  program  within  quote  marks.  Turn  your  cassette  recorder 
on  to  “record,”  after  connecting  it  up  as  shown  in  the 
manual,  and  then  press  the  ENTER  key. 

We  suggest  you  make  a  habit  of  saving  each  program  three 
times  in  a  row,  on  a  C-12  or  C-15  (i.e.,  computer)  cassette, 
and  that  you  only  put  one  program  on  each  side  of  a  tape. 
Label  the  tape  clearly  with  the  load  name.  Although  it  may 
seem  wasteful  to  use  up  a  whole  side  of  a  cassette  with 
just  one  program  record  three  times,  the  frustration  you 
will  save  yourself  by  not  having  to  search  through  tape  aJfter 
tape  for  a  program  you  want  will  more  than  compensate  for 
using  more  cassettes  than  is  strictly  necessary.  The  program 
is  recorded  three  times  just  in  case  the  tape  gets  damaged 
at  some  point,  or  yoi  accidentally  erase  part  of  the  program, 
or — as  ^metimes  happens — one  recording  of  the  program 
refuses  to  load  properly. 

You  should  clean  the  recorder’s  heads  frequently,  using 
liquid,  not  a  tape  clraner  ribbon  in  a  cassette,  to  ensure  that 
the  clearest  possible  signal  is  put  onto  the  tape. 

Getting  programs  back  into  the  computer  can  prove  diffi¬ 
cult  at  times.  If  you  do  have  LOAD  problems  then  tiy  the 
following  tips: 

1.  Disconnect  the  lead  not  in  use  from  both  the  computer 
and  the  cassette  recorder. 

2.  Try  operating  the  cassette  recorder  fiom  batteries. 

15 
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3.  Try  moving  the  computer  and  the  cassette  recorder  fur¬ 
ther  apart,  as  well  as  the  TV  if  you  can. 

4.  Change  the  volume  setting  on  the  cassette  recorder,  since 
some  cassettes  may  have  a  higher  output  than  others.  Try 
changing  the  tone  control  setting,  in  particular  turn  up 
the  treble  or  turn  down  the  bass. 

5.  Make  sure  your  leads  have  not  broken  or  cracked,  or  a 
solder  joint  has  not  come  loose. 

6.  The  memory  of  computers  is  measured  in  a  unit  called  K 
(which  stands  for  kilobyte,  1024  characters).  Your  T/S 
1000  is  supplied  with  2K  of  memory  when  you  buy  it, 
and  this  is  enough  memory  for  many  applications  (and 
for  all  but  a  few  of  the  programs  in  this  book).  However, 
you  may  find  eventually  that  you  want  more  memory, 
and  you  can  then  buy  a  16K  RAMPACK  to  plug  into  the 
back  of  the  computer.  Do  not  try  loading  a  2K  program 
SAVEd  using  a  RAMPACK  because,  although  the  pro¬ 
gram  itself  might  easily  fit  into  2K,  the  display  file  will 
be  at  its  full  size  so  there  will  be  no  room  for  everything 
in  the  computer.  If  you’ve  got  a  program  saved  using  a 
RAMPACK  and  the  program  won’t  load,  then  beg,  steal, 
borrow,  or  even  buy  a  RAMPACK,  and  go  through  the 
motions  described  above  and  resave  the  program  to  make 
it  suitable  for  loading  into  2K  in  the  future. 

7.  This  sounds  silly,  but  make  sure  your  plugs  are  in  the 
correct  hole!  You  may  find  it  useful  to  stick  labels  on  top 
of  the  computer  above  the  sockets  to  tell  you  which  one 
is  which  so  that  you  don’t  have  to  peer  around  the  side  to 
check  this  every  time. 

Now,  let’s  return  to  TAB.  We  can  only  use  TAB  with  a 
single  number  after  the  word.  Remember,  TAB  A  will  move 
the  start  of  the  PRINT  position  A  + 1  spaces  across  a  line. 
You  can  have  the  word  PRINT  followed  by  AT,  and  two 
numbers,  such  as  PRINT  AT  ^10,  6;  which  will  move  the 
PRINT  position  6  spaces  across  and  10  down.  The  top  left- 
hand  comer  of  the  screen  is  0,  0,  so  PRINT  AT  0,  0; 
indicates  that  the  printing  will  begin  in  the  top  left-hand 
comer  of  the.  screen.  The.  left-hand  side  of  the  screen  is 
numbered  0,  while  the  ri^t-hand  side  is  31.  The  screen  is  32 
characters  wide,  so  the  position  furthest  to  the  right  is  num¬ 
bered  31. 
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PRINT  AT 


The  following  program  shows  PRINT  AT  in  action,  posi¬ 
tioning  an  X  at  the  position  you  choose.  When  you  run  the 
program,  the  computer  will  wait  for  you  to  enter  a  number. 
The  first  number  you  enter  will  be  the  first  number  after  the 
word  AT,  and  this  number  is  the  number  of  lines  (plus  one)  at 
which  you’ll  be  printing.  That  is,  if  you  entered  5,  the 
computer  would  move  to  the  sixth  line  down.  The  T/S  1000 
will  wait  for  another  number,  which  is  like  the  TAB  number, 
that  is,  it  is  the  number  of  spaces  across  the  screen  which  will 
be  in  front  of  that  which  you  are  printing.  If  you  entered  5  for 
this  second  number,  you’d  see  an  X  appear  on  the  screen  six 
lines  down,  and  in  the  sixth  position  across  (that  is,  with  five 
spaces  in  front  of  it).  The  program  will  print  up  at  the  top  the 
location  at  which  the  X  is  printed. 

Run  this  for  a  while,  then  terminate  it  by  entering  any  letter 
except  A  or  B. 

1.0  PRIbtT  RT 

aft  R 

as  CLS 
30  XNPUT  B 

4.0  PRXNT  RT  0>©;"THXS  SHOUS  PR 
INT  RT  R;  •'  ,  ;  B 

50  PRINT  RT  R,B.;“X" 

60  GftTO  aft 


THIS  SHOWS  PRINT  RT  4- ,  12 


X 


CHAPTER  4 
GOTO 


One  important  ability  in  programming  is  to  be  able  to 
branch  to  different  parts  of  the  program  during  execution. 
Without  this,  the  program  would  always  run  from  the  lowest 
line  number  to  the  highest,  and  then  stop.  One  statement 
which  allows  you  to  move  around  the  program  at  will  is 
GOTO.  The  GOTO  statement  consists  of  a  line  number  fol¬ 
lowed  by  the  word  GOTO  and  another  line  number,  or  fol¬ 
lowed  by  a  calculation  (such  as  GOTO  2*X,  or  GOTO 
200-1-340). 

If  the  computer  came  across  140  GOTO  190,  it  would 
jump  immediately  from  line  140  to  line  190.  This  is  called  an 
unconditional  branch.  That  is,  it  is  a  jump  that  does  not 
depend  on  the  existence  of  any  condition.  Once  at  line  190, 
the  program  continues  to  execute  in  order,  until  it  comes  to 
the  end,  or  comes  to  another  line  directing  it  somewhere  else. 

You  can  use  GOTO  to  produce  programs  which  run  almost 
forever.  These  can  be  quite  effective,  especially  at  the  end  of 
a  game.  Run  the  following  to  see  this  in  action: 

1©  PRXNT  "YOU  HROE  UO.M 
a@  GOTO  i© 
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CHAPTER  5 
Random  numbers 


Random  numbers  are  very  useful  for  playing  games.  Let’s 
examine  the  production  of  random  numbers,  and  use  them  in 
a  few  simple  programs. 

The  computer  allows  you  to  generate  what  are  called  float¬ 
ing  point  numbers  between  0  and  1 .  A  floating  point  number 
is  one  which  contains  a  decimal  point  (such  as  0.2341  or 
43.65)  rather  than  integers,  or  whole  numbers  (such  as  12, 
666  or  26753). 

Enter  and  run  the  following  to  see  a  range  of  numbers 
(floating  point  numbers,  as  you’ll  see)  between  0  and  1.  You 
get  RND  from  the  T  key,  after  going  into  the  function  mode. 

10  PRINT  RND 
2©  GOTO  10 

You’ll  get  a  list  of  numbers  something  like  this: 

0.34-892273 
0. 16993713 
0.74-623108 
©.96762085 
0.57  IS 94.24. 

© . 8700561S 
0 .25434876 
. 07699585 
8.77574158 
3 . 18086243 
0.56561279 
0.42144775 
0 . 60923767 
0 . 69326782 

You’ll  find  that  random  integers  are  often  of  far  more  use 
than  are  the  numbers  between  0  and  1.  To  do  this,  enter 
a  statement  like  INT  (RND*30)  '■+  1.  Run  this  program. 

19 
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You’re  IQcely  to  get  a  series  of  numbers  such  as  those  following 
the  program. 

10  REM  RRNDOM  INTEGERS^ 

30  LET  fRND*ia0)  +1 

30  SCROLL 
4.0  PRINT  TRB  BiR 
S0  GOTO  20 

S8 

26 

8 

78 

12 

S7 

4-3 

61 

70 

100 

66 

34. 

26 

72 

52 

39 

64. 

37 

4.0 

The  computer  takes  the  number  in  brackets  (known  as  the 
argument  of  the  function)  and  selects  numbers  at  random 
between  1  and  that  number.  To  get  negative  random  num¬ 
bers,  just  put  a  minus  sign  in  front  of  the  word  INT.  Try  that, 
and  run  it  again,  to  get  a  result  like  this: 

-40 

-89 

-55 

-35 

-47 

-69 

-5 

-72 

-23 

-57 

-65 

-17 

-74 

-65 

-17 

~86 
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You  can  use  the  random  numbere  for  any  application  where 
you  need  to  emulate  a  random  activity  in  the  real  world,  like 
the  distribution  of  weeds  in  a  garden,  the  spread  of  clouds  in  the 
sky,  or  the  result  of  rolling  dice.  The  next  program  emulates 
the  roll  of  a  six-sided  die.  Enter  and  run  it  a  few  times. 

i©  RSH  *  DICE  ROLLER  * 

2©  PRINT  '*HOU  HRNY  TIHES  WILL" 
30  PRINT  "I  ROLL  THE  DIET" 

4-0  INPUT  R 
S©  CLS 

S©  PRINT  "RESULT  OF  ROLLINO  TH 
E  DIE-^R;"  TIHES:" 

T©  FOR  8=1  TO  R 
80  LET  C=:INT  (RND#8jf-fl 
O©  PRINT 
10©  NEXT  B 

RESULT  OF  ROLLING  THE  DIE 
■7  TIHES: 

1 

5 

1 

3 

S 

5 

6 

While  the  theoretical  distribution  of  numbers  between  1  and  6 
with  a  six-sided  die  suggests  that  each  number  has  an  equal  chance 
of  coming  up  in  a  long,  long  series  of  rolls,  the  totals  produced 
when  you  use  two  dice  approach  the  following  distribution: 


TOTAL  NO.  OF  WAYS  PROBABILITY  PERCENTAGE 
SHOWING  IT  CAN  BE 
THROWN 


2 

1 

1/36 

2.77 

3 

2 

2/36,1/18 

5.55 

4 

3 

3/36,1/12 

8.33 

5 

4 

4/36,1/9 

11.11 

6 

5 

5/36 

13.88 

7 

6 

6/36,1/6 

16.66 

8 

5 

5/36 

13.88 

9 

4 

4/36,1/9 

11.11 

10 

3 

3/36,1/12 

8.33 

11 

2 

2/36,1/18 

5.55 

12 

1 

1/36 

2.77 

22 


MASTERING  YOUR  TIMEX  SINCLAIR  1000 


To  test  just  how  random  the  random  number  generator  is, 
enter  and  run  the  following  program,  which  rolls  two  dice  as 
many  times  as  you  request. 


(RCW  ^  "TWO  OICE  1  i'Tt  1 

20  PRINT  "HOU  MftNY  TIHES  UlL.t- 
I*.  •ROt-U  THE  DICE'?" 

30  INPUT  D 
4.0  Cl-S 
S0  DIM  PC IS) 

60  FOR  Cal  TO  D 
70  tiST  D  lEI  aINT 
60  LET  DIESalNT 
00  PRINT  RT  3, a; 

" ;  DiEl;  "  DIES^  •’ 

DIES; "  " 

100  LET  SUHaOIEI^^DIEa 
110  LET  R  (SUM)  »«  tSWt) -i-l 
120  FOR  Ba2  TO  12 

130  PRINT  «T  "  >R(e)  ;  " 

*•  ;  INT  C«  CB)  /'C«1©0)  **  PER  CEtCT  " 

14.0  NEXT  8 
150  NEXT  C 


tRND  «S  )  '♦•1 
(RND*6)  4-1 

-the  dice  fell 

TOTRL  ";DIE1# 


Here’s  the  result  of  one  run  when  I  got  the  computer  to  roll 
the  two  dice  60  or  so  times.  The  top  two  figures  (5  and  6) 
are  the  result  of  the  current  roll.  Next,  from  there  down, 
the  numbers  2  to  12  in  the  left-hand  column  are  the  totals 
we  are  looking  for,  followed  by  the  number  of  times  that 
total  has  been  rolled  in  the  current  run.  The  final  column 
shows  the  approximate  percentage  distribution  of  each  of  the 
totals. 


THE  DICE  PELL  5  6  TOTRL  11 

2  3  4.  PER  CENT 

3  23  PER  CENT 

4.  S  7  PER  CENT 

5  3  4-  PER  CENT 

6  7  11  PER  CENT 

7  12  19  PER  CEbrr 

S  7  11  PER  CENT 

9  9  14  PER  CENT 

13  S  S  PER  CENT 

11  34  PER  CENT 

12  69  PER  CENT 

You  can  see  that  this  run  is  starting  to  approach  the  theoret¬ 
ical  distribution,  which  suggests  the  random  number  genera¬ 
tor  is  performing  its  task  properly.  The  numbers  produced  are 
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not  totally  random,  but  are  from  a  very  long  list  of  numbers, 
which  is  so  long  that  no  pattern  can  be  discerned. 


Bull  fight 


Here’s  a  very  simple  game  which  shows  the  random  num¬ 
ber  generator  in  action.  The  game  is  not  really  much  of  a 
game,  but  entering  and  running  it  is  well  worthwhile.  Once 
you’ve  played  a  few  rounds  of  the  game,  return  to  this  book 
for  a  discussion  of  the  program.  You  should  be  pleasantly 
surprised  at  how  much  you  have  already  learned. 

You  are  a  matador.  The  bull  will  charge  you  10  times.  You 
select  a  number  between  1  and  3,  and  the  bull  does  the  same. 
So  long  as  the  numbers  are  different,  you  survive  that  move. 
If  the  bull  picks  the  same  number,  the  game  is  over.  You  are 
given  a  score  at  the  end. 

THE  SUL.I_  IS  CHRRGING 
WHICH  MOVEHENT?  Cl  TO  3) 

YOU  ftRE  SftPE  IN  MOUE  1 
THE  BULL  PICKED  2 
YOU  PICKED  1 

i©  REM  BULLFIGHT 

20  LET  SCORE=0 

30  FOR  G=1  TO  1© 

4.0  PRINT  RT  4..  4.;  ••THE  BULL  IS  C 
HRRGING*' 

50  PRINT 

S©  PRINT  “WHICH  MOUEMENT?  il  T 
O  '  •' 

■?©  INPUT  R 

30  IF  R<1  OR  R>3  THEN  GOTO  70 

9©  LET  BsrINT  (RND^O)  +1 
100  IF  R=B  THEN  GOTO  22© 

110  PRINT 

120  PRINT  “YOU  RRE  SRFE  IN  MOUE 

’• G 

130  PRINT 

14-0  PRINT  “THE  BULL  PICKED  •’ J  B 

150  PRINT 

160  PRINT  "YOU  PICKED  " ;  R 

17©  FOR  Hal  TO  20 
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130  NEXT  H 
190  CUS 
20©  NEXT  G 

210  GOTO  230  ^ 

220  PRINT  -YOU  HRUE  FRIUED  AS  R 
■’  .  "HRTRDOR” 

PRINT 

24.0  PRINT  -YOU  SCORED  -;18©4«G- 
1> 


Let’s  go  through  the  program  line  by  line; 


10 

REM  statement  title. 

20 

Sets  the  variable  SCORE  to  equal  zero.  We’ll  be 
discussing  variables  shortly. 

30 

Starts  the  FOR/NEXT  loop  to  count  the  10  goes.  FOR/ 
NEXT  loops  are  discuss^  a  little  later  in  the  book. 

40 

Prints  out  that  the  bull  is  charging. 

50 

Blank  PRINT  line. 

60 

Asks  the  player  to  enter  a  number  between  1  and  3 . 

70 

Accepts  Ae  number  from  the  player. 

80 

Checks  to  see  if  the  number  lies  between  1  and  3, 
and  if  it  does  not,  goes  back  to  line  70  to  accept 
another  input  from  the  player. 

90 

Sets  B  equal  to  the  bull’s  number,  a  number  chosen 
at  random  between  1  and  3. 

100 

Compares  the  player’s  number  (A)  with  the  bull’s 
number  (B)  and  if  they  are  the  same,  sends  action 
to  line  220  to  tell  you  you  have  failed  as  a  matador. 

110 

Blank  PRINT  line. 

120 

Tells  the  player  he  or  she  has  survived  that  move. 

130 

Blank  PRINT  line. 

140 

Tells  the  player  the  bull’s  number. 

150 

Blank  PRINT  line. 

160 

Reminds  player  of  his  or  her  number. 

170-180 

Puts  in  a  short  delay  before  next  round. 

190 

Clears  the  screen. 

200 

Goes  back  for  the  next  round. 

210 

If  the  player  has  survived  10  rounds,  goes  to  print 
out  the  score. 

220 

This  failure  message  appears  if  A  and  B  were  found 
to  be  equal  in  line  100. 

230 

Blank  PRINT  line. 

240 

Prints  out  the  score. 
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Reading  through  this  explanation  a  couple  of  times,  and 
looking  carefully  at  the  line  or  lines  it  refers  to,  should  teach 
you  quite  a  bit  more  about  programming.  There  are  a  number 
of  specific  commands  which  we  will  look  at  in  more  detail, 
but  you’re  probably  starting  to  pick  up  quite  a  bit  at  this 
stage. 


CHAPTER  6 
Variables 


You  will  have  noticed  in  the  previous  program  that  letters 
were  used  to  represent  numbers.  The  letter  A  was  assigned 
(in  line  70)  to  a  number  between  1  and  3  and  B  was  assigned 
in  the  same  way  in  line  90.  The  letters  A  and  B  in  this 
program  are  called  variables. 

There  are  two  types  of  variables:  numeric  and  string  (al¬ 
phanumeric).  Almost  any  combination  of  letters  and  numbers 
can  be  used  as  a  variable,  so  long  as  it  begins  with  a  letter 
and  there  are  no  punctuation  marks  or  symbols  within  the 
name.  So  SMUDGEPOT  and  Di7  are  valid  variable  names, 
while  2SMUDGE  and  1D7  are  not.  Numeric  variables,  letters 
or  combinations  of  letters,  and  numbers  beginning  with  a 
letter,  are  simple  to  use.  You  can  assign  a  variable  of  this 
type  to  any  number  within  the  computer’s  numerical  range. 

By  the  way,  as  you  probably  know,  the  computer  uses 
scientific  notation  to  display  large  numbere,  with  the  number 
as  a  single  digit  and  up  to  eight  decimal  places,  followed  by 
,  the  letter  E  (for  exponentiation)  and  the  power  of  10  to  which 
the  number  is  to  be  multiplied.  Enter  and  run  the  following 
demonstration  which  shows  the  variable  A  in  use,  being 
assigned  to  a  number  which  is  being  multiplied  repeatedly  by 
10,  and  then  printed. 

10  REH  SCIENTIFIC  NOTRTION 
30  L.ET  Rsl334. 

25  SCROLL 
30  PRINT  R 
4.0  LET  Ral0«R 
50  GOTO  25 

1234. 

12340 

12.3400 

1234-©©© 
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12340000 

123400000 

1234000000 

12340000000 

123400000000 

1234000000000 

1.234E+13 

1.234E>(>14 

1.234E+1E 

1.234E4-16 

1.234E+17 

1.234E+18 

1.234E+19 

1 .234E-(>20 

1.234E4^21 

1 «  234E  4*22 

1 . 234E  4>23 

Note  that  after  the  number  has  13  digits  (1234000000000) 
it  is  printed  as  a  number,  a  decimal  point,  more  numbers  after 
the  decimal  point,  the  letter  E,  and  a  power  of  10.  Try  and 
predict  how  long  this  program  will  run  until  it  exceeds  the 
maximum  number  possible  on  the  computer,  then  mn  it  until 
it  crashes  to  see  if  you  were  right. 

Looking  at  the  listing  tells  us  more  of  things  about  vari¬ 
ables.  The  variable  is  assigned  by  just  entering  the  name  of 
the  variable  (in  this  case,  A),  preceded  by  the  word  LET,  and 
followed  by  an  equals  sign  and  the  value  which  we  want 
assigned  to  the  variable.  If  we  said  LET  A  =  99,  then  follow¬ 
ing  this  with  PRINT  A  would  produce  99.  Line  40  looks  a 
little  odd.  The  asterisk  (*)  stands  for  multiply  in  BASIC.  Line 
40  seems  to  be  saying  that  A  is  equal  to  10  times  itself,  which — 
in  terms  of  standard  arithmetic — is  not  true.  This  is,  however, 
the  way  the  assignment  (LET)  statement  is  used  in  BASIC. 


String  variables 


String  variables  are  represented  by  a  letter  followed  by  a 
dollar  sign.  Type  LET  AS  =  “HELLO”,  press  ENTER,  then 
type  PRINT  AX,  and  press  ENTER.  This  will  give  you  HELLO. 
You  can  put  anything,  including  numbers,  symbols,  punctua¬ 
tion  marks,  and  letters  within  the  quotation  marks,  to  be 
assigned  to  a  string  variable.  A  series  of  letters  and  what¬ 
ever,  within  quote  marks  in  this  way,  is  known  as  a  string. 
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Crickets 

There  is,  strange  to  say,  a  correlation  between  the  tempera¬ 
ture  and  the  number  of  times  a  cricket  chirps  each  minute. 
The  following  program  converts  the  number  of  chirps  per 
minute  into  temperature,  in  degrees  Fahrenheit.  Enter  and  run 
it  a  few  times.  Note  that  the  variable  chirp  is  set  equal 
initially  to  80  in  line  20.  This  is  converted  into  the  variable 
temperature  in  line  30,  and  this  latter  variable  is  used  in  the 
PRINT  statement  in  line  40.  The  variable  chirp  is  incremented 
by  a  random  number  between  1  and  7  in  line  60,  there 
is  a  short  delay  (lines  70  and  80)  and  then  the  program  returns 
to  line  30  to  go  through  the  whole  process  again.  It  will  ran 
for  a  long,  long  time  (until  you  exceed  the  highest  possible 
number  the  computer  can  cope  with)  if  you  do  not  interrupt 
its  running  with  the  BREAK  key. 


THE  TEMPERATURE  IS  6© 
UHEN  THERE  ARE  ©©  CHIRPS 

THE  TEMPERATURE  IS  SI 
UHEN  THERE  ARE  S4.  CHIRPS 

THE  TEMPERATURE  IS  63 
WHEN  THERE  ARE  S©  CHIRPS 

UHEN  THERE  ARE  ©2  CHIRPS 

THE  TEMPERATURE  IS  64. 
UHEN  THERE  ARE  94-  CHIRPS 


10  REM  CHIRP  CONUERTER 
20  LET  CHIRP «80 

30  LET  TEMPERATURE slNT  i (CHIRP 
..'4.)  4-40  .SI 

SCROLL 

4.0  PRINT  ’’THE  TEMPERATURE  IS  *' 
i TEMPERATURE 
4.5  SCROLL 

50  PAINT  "WHEN  THERE-  ARE..  C« I 
RP;  ••  CHIRPS** 

60  LET  CHIRP =CHIRP+INT  (RNO»7) 

4  % 

70  FOR  Ual  TO  1© 

80  NEXT  U 
90  SCROLL 
100  GOTO  30 
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Although  it  takes  a  little  longer  to  type  in  long  variable 
names,  these  have  a  clear  advantage  over  use  of  names  like 
A,  B,  and  C2.  It  is  easier  to  remember,  without  having  to 
refer  back,  what  each  variable  represents.  Here  is  another 
program  which  uses  two  variable  names  to  help  make  clear 
what  is  going  on.  Enter  and  run  this. 


10 

20 

30 

4.0 

50 

55 

50 

SR 

70 

MBER 

75 

50 

90 


REM  UORIRBL.es 

L-ET  U$=:-THE  NUMBER  IS  " 

LET  NUMBER =3 
PRINT 

PRINT  U$; NUMBER 
PRINT 

PRINT  -THE  SOUORE  OF  " NUMB 
PRINT  TOB  5; ”IS  NUMBER *NU 
PRINT 

PRINT  “RND  THE  SOUORE  ROOT” 
PRINT  "IS  "jSOR  (NUMBER) 


To  summarize: 

•Numeric  variable:  This  can  have  any  name,  so  long  as  it 
starts  with  si  letter  and  does  not  contain  punctuation  or 
symbols. 

•String  variable:  This  is  a  letter  followed  by  a  dollar  sign, 
which  is  assigned 'to  anything  within  quotation  marks. 

All  variables  are  assigned  by  use  of  a  LET  statement, 
followed  by  the  name  of  the  variable,  an  equals  sign,  and 
then  the  value  which  is  to  be  assigned  to  the  variable. 


CHAPTER  7 
INPUT 


The  INPUT  statement  is  used  to  get  information  from  a 
user  while  a  program  is  actually  running.  The  computer  stops 
when  it  comes  to  an  INPUT  statement  and  waits  for  an  entry 
of  some  kind  from  the  keyboard  before  it  continues  with  the 
execution  of  the  program. 

Enter  and  run  the  following  program,  which  shows  nu¬ 
meric  inputs  in  action.  The  program  will  wait  for  you. to  enter 
one  number  and  then  press  ENTER,  and  then  it  will  wait  for 
another  number.  After  you  have  pressed  ENTER  again,  it 
will  print  the  sum  of  the  two  numbers. 

10  REM  **  INPUT 
£0  INPUT  .X 
30  PRINT 
4.0  I^4PUT  Y 
S©  PRINT  ..Y 
S©  LET  2=X4*Y 
7©  PRINT  ,  "mmmm" 

SQf  PRINT  ,2 _ 

©0  PRINT  , 


199 

This  is  all  right  so  far  as  it  goes,  but  you  would  not  have 
known  what  to  do  when  you  ran  the  program  unless  you  had 
read  it  in  this  book.  There  is  a  simple  way  to  rectify  this  by 
programming  in  user  prompts.  The  preceding  program  can 
easily  be  rewritten  so  that  the  user  has  no  doubt  as  to  what  he 
or  she  is  meant  to  do. 


30 
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10  REM 

15.  PRII^T  ••G-IU‘E_  ME  R-  HUMBER 
20  INPUT  X 
30  PRINT  ,X 
35  PRINT  "RND  RNOTHER" 

4.0  INPUT  Y 
5©  PRINT  ,Y 
60  LET  Z«X+Y 
70  PRINT 

80  PRINT  _ 

2©  PRINT  , 


Combat 

Here’s  another  program  showing  INPUT  in  action. 


5  REM  **COMBflT«^* 

1©  LET  SCORES© 

15  FOR  Jsl  TO  20 

a©  PRINT  RT  0,0.;  “ENTER  R  NUMBE 
R  FROM  1  TO  10“;RT  l,S;“eO  NUMBE 
R  "  ‘  U 

3©  INPUT  R 

4-©  IF  R<1  OR  R>i0  THEN  GOTO  3© 
50  PRINT  RT  10,0; “YOUR  NUMBER 
15  “;R;RT  12,6;  “SCORE  IS  SCORE 
60  FOR  G=1  TO  4. 

70  LET  BsINT  (RND^H0>  •►I 
80  PRINT  RT  3,3;  B;**  " 

90  IF  B=R  THEN  GOTO  110 
100  NEXT  G 

11©  IF  R»B  THEN  LET  SCORE sSCORE 
+  1 

130  IF  RsB.  THEN  PRINT-  RT  ljt,S;  ” 
WELL  OOHE^ 
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140  IF  «<>B  THEN  PRINT  RT  14, S; 
“BRD  L.UCK‘* 

ISO  PRINT  RT  ia,,B.;  "SCORE  13  " 3 
CORE 

160  IF  SCORE *5  THEN  GOTO  GSO 
170  FOR  T=1  TO  20 
160  NEXT  T 
190  Cl_S 

210  PRINT  "THE  GftHE  IS  _ 

220  PRINT  "RND  YOU  ONL.Y  ^uORED 
SCORE  . 

23©  PRINT  "YOUR  RATING  IS  *  i  SCO 
RE/. 05; ”  PERCENT" 

240  STOP 

250  PRINT  "YOU  DID  IT" 

260  SCROL-l- 

270  PRINT  "YOU  UIN" 

2S0  GOTO  26© 

Er>frER  R  NUHBER  FROH  1  TO  1© 

GO  NUHBER  O 


10 

YOUR  NUHBER  XS  B 
SCORE  IS  3 
BRD  UUCK 

In  COMBAT,  you  select  a  number  between  1  and  10.  The 
computer  selects  up  to  four  numbers  between  1  and  10.  For 
each  number  that  is  the  same  as  yours  your  score  is  increased 
by  one.  If  you  get  a  score  of  five  within  your  20  tries,  you 
win.  If  not,  you  fail  and  get  a  percentage  rating.  Once  you’ve 
run  the  program,  come  back  to  die  book  to  go  through  it  line 
by  line.  Although  the  program  is  fairly  trivial,  running  it, 
then  reading  the  explanation  will  increase  your  Imowledge  of 
several  aspects  of  BASIC. 

5  Title. 

10  Sets  the  variable  SCORE  to  zero. 

15  Starts  the  master  FOR^NEXT  loop  to  count  your 

goes. 

20  Asks  the  player  to  enter  a  number. 

30  Accepts  the  input  for  variable  A. 

40  Ctecks  that  the  input  is  legal. 
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50  Prints  out  the  number  chosen  and  the  score.  Note 

that  PRINT  statements  may  be  chained  in  this  way, 
with  semicolons  and  the  use  of  AT  or  TAB. 

60-100  Generates  up  to  four  numbers.  After  each  number 
is  generated  (line  70),  it  is  printed  (line  80)  and 
checked  against  the  player’s  number  (line  90). 

il0  Score  is  increased  by  one  if  the  guess  is  correct. 

130  Prints  WELL  DONE  if  the  guess  is  correct. 

140  Prints  BAD  LUCK  if  the  guess  is  incorrect. 

150  Reprints  the  score. 

170-180  Short  delay  before  next  move. 

190  Clears  the  screen. 

200  The  end  of  the  master  FOR/NEXT  loop. 

210-240  End  of  game,  if  you  lose. 

250  End  of  game,  if  you  win. 


Compound  interest 


This 

next  program  will 

show  the  INPUT 

Statement  in 

action 

again  and  the  use 

of  explicit  names 

for  variables. 

which 

will  make  it  easier 

to  understand  what 

is  going  on. 

You  may  want  to  save  this  program  on  cassette,  as  it  has  a 
degree  of  practical  application. 

YERR  SIMPLE 

COMPOUND 

DIFF  . 

1 

10S . 25 

108.25 

0 

O' 

116.5 

117.18 

0 

o 

124.75 

126 . 84 

2.02 

4 

133 

137.31 

4.31 

c; 

141,25 

148 . 64 

7.32 

6 

14-3  ,  S 

160.2 

11.4 

•? 

157 . 75 

174 . 17 

16 . 42 

3 

lt>S 

IBS . 54 

^  54- 

3 

J..  «  iC.w' 

204 . 1 

22.85 

1© 

1S2.5 

22© . 24 

3S  »  4-4- 

11 

12© . 75 

233  IT 

4-3  »  4-2 

12 

122 

258.9 

SSii  S 

10  REM  SIMPLE  AND  COMPOUND 
a©  REM  INTEREST 

30  PRINT  'PRINCIPRL-? 

4.0  INPUT  PRINCIPftl- 
4.S  PRINT  “INTERESTS •• 

S0  INPUT  INTEREST 
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55 
50 
70 
S@ 
30 
;  TRB 


PPiXKT  ”FDR  H0y  HRHY  YERRS?” 

XNRUT  YERRS 

CES 

SCROl-l- 

PRINT  ”VERR".;TRB  5;  ‘•SXHPLE" 
XS  t  •■CQHPOUND**;  TRS  2S.;  “DIFF. 


ill  PRINT^" 

iwwwyyw 

3.10  FOR  M  =  1  TO  YERR5  _ 

12.0  i_E.T  5  XfeiPL-E=RR XHC. XPRi-  *-P-R  Xi>s 

C  IPR1_  *  i  XHTEREST  XO©  ) 

125  i_ET  SXHPL.E=XHT  1  SXHPl_E  S-100J 
7100 

13©  I ET  CQHPQUHO^XHT  ClS©*PRlHC 


XPRL.*  11  + INTEREST  710© J  7100 

135  XF  M=:l  THEN  L.ET  COMPOUND  =SX 


HPLE 

14.0  CET  D1FF=XNT  1 10@«^  tCOMPOUND 


-SXMPl_E+.©@5J  J 
15©  SCROLL. 

16©  PRINT  H;T 
COMPOUND.:  TRB 
17©  NEXT  M 


7l@© 

RB  5 ;  SIMPLE.;  TRB 
25.;  DIFF 
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This  program  works  out  compound  and  simple  interest,  for 
a  principal  and  interest  rate  you  determine,  over  the  number 
of  years  you  decide.  The  example  uses  a  principal  of  $1(X),  at 
8.25  percent  over  12  years. 

To  stop  a  program  during  a  string  INPUT  (BREAK  does 
not  operate  during  INPUTs),  use  cursor  left  (shift  5)  or 
RUBOUT  (shift  0)  to  get  the  cursor  out  of  the  quotes,  then 
type  in  STOP  (shift  A)  followed  by  ENTER.  If  you  are  in 
a  numeric  INPUT  without  quotes,  just  type  STOP  (shift  A) 
followed  by  ENTER.  In  both  cases  the  program  stops  with 
report  D.  It  is  useful  to  be  able  to  reject  invalid  inputs  before 
they  cause  a  program  to  crash. 

If  you  invite  a  user  to  have  another  go  and  analyze  his  or 
her  reply  as  follows: 

QO?“  WRNT  RNOTHER 

^556  INPUT  R$ 

557  IF  R$a“Y*'  THEN  RUN 


there  is  a  law  somewhere  that  says  the  user  will  respond  by 
pressing  only  ENTER,  leaving  you  with  a  null  INPUT.  There’s 
no  such  thing  as  RS  (1) — it  does  not  exist,  as  the  computer 
will  very  quickly  tell  you  in  the  form  of  an  error  report! 
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Here  is  one  method  of  preventing  this: 

DIH 

35S  PRINT  “DO  YOU  WRNT  RNOTHER 
GO'?" 

556  INPUT  R$ 

557  IF  R$(l)=i"Y”  THEN  RUN 

Because  RS  has  previously  been  DIMensioned,  it  will  have 
to  consist  of  one  character,  no  matter  what  is  entered.  If  only 
ENTER  is  pressed,  then  R8  will  be  a  space  since  that  is  what 
is  placed  in  RS  after  DIM  and  a  null  INPUT  will  not  change 
it.  If  the  INPUT  is  several  characters  long,  then  there  is  only 
room  in  R8  for  the  first  character.  If  this  character  is  Y, 
then  the  program  will  RUN  for  another  go.  This  method  has 
the  advantage  that  if  the  user  enters  a  very  long  reply  such  as 
"YES  PLEASE  NICE  KIND  COMPUTER,  I  WOULD  LIKE 
VERY  MUCH  TO  HAVE  ANOTHER  GO  AT  YOUR  GREAT 
GAME  PROGRAM”  (very  unlikely!)  there  is  no  need  to- 
store  it  all  in  memory.  It  is  also  very  useful  if  you  GOTO  or 
do  nothing  that  would  CLEAR  the  variables,  thus  storing  the 
entire  reply  unnecessarily.  The  second  method  is  more  con¬ 
ventional  and  uses  one  program  line  less  than  the  previous 
routine,  although  it  does  place  the  entire  reply  unnecessarily 
in  memory: 

555  PRINT  "DO  YOU  URNT  RNOTHER 
GO?" 

555  INPUT  R$ 

557  IF  CODE  R*«CODE  "Y"  THEN  RU 

N 

The  program  explains  itself  really.  If  the  first  character  of 
the  reply  has  a  CODE  that  is  the  same  as  the  CODE  of  Y 
(i.e.,  it  is  Y),  then  the  program  RUNs  again.  Null  INPUTs 
are  rejected,  since  they  are  interpreted  as  meaning  that  the  user 
does  not  want  to  play  again.  Merely  pressing  ENTER 
gives  the  empty  string  and  the  CODE  of  the  empty  string  as  0 
like  a  space.  Checking  the  first  letter  of  a  user’s  INPUT  is 
fairly  easy  as  you’ve  just  seen.  It  becomes  a  bit  more  difficult 
when  you  want  to  check  an  entire  INPUT,  e.g.,  to  see  if  the 
uspr  has  entered  any  punctuation  marks  or  has  included  letters 
in  a  numeric  INPUT.  Let  us  look  at  alphabetic  INPUTs  first. 
The  relational  operators  >,<,<  =  ,>  =  ,<>are  very  use- 
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ful  in  this  case.  Take  the  case  of  an  INPUT  where  a  word  is 
strictly  required  and  nothing  else  must  be  entered. 

le  INPUT 

15  IF  R*  =  *'’*  THEN  GOTO  10 
20  FOR  R=1  TO  LEN  RH 
30  IF  R*tR)<‘*R**  OR  R$tR5>-Z**  T 
HEN  GOTO  10 
4.0  NEXT  R 

Line  15  ensures  that  null  INPUTS  (i.e.,  just  ENTER  pressed) 
are  rejected.  The  loop  starting  at  line  20  scans  the  entire 
INPUT  string  character  by  character,  and  if  a  character  is 
found  which  is  not  a  letter,  you  are  instructed  to  enter  the  string 
once  again  because  the  program  jumps  back  to  line  10.  As  it 
stands,  the  program  will  not  allow  spaces  between  words. 

Change  line  30  like  this  to  allow  spaces: 


30  IF  (RUtRi  <*‘R’*  OR  R$tR>>"Z"> 
RND  R«(R} <>“  "  THEN  GOTO  10 


You  can  easily  extend  this  idea  to  allow  punctuation  marks, 
letters,  and  spaces  if  you  like  (i.e.,  numbers,  keywords, 
symbols,  etc.  are  not  allowed)  by  extending  the  idea  in  line 
30.  Only  slightly  more  difficult  is  detecting  a  given  word  in 
an  INPUT;  e.g. ,  if  you  wanted  to  have  a  line  at  the  tail  end  of 
a  program  inviting  the  user  to  have  another  go  at  the  pro¬ 
gram,  so  that  if  the  user  replied  “YES”,  then  the  program 
would  run  again.  It  is  a  fairly  simple  thing  to  put  the  INPUT 
in  a  loop  and  slide  the  word  along  like  this: 


7000  PRINT  “RNOTHER  GOT” 
7010  INPUT  R* 

7020  FOR  Rssl  TO  L.EN  R$-2 
.'©30  IF  R$  CR  TO  R+23  ss“YES* 
RUN 

704.0  NEXT  R 
7050  STOP 


THEN 


If  you  entered  “YES”  or  “YES  PLEASE”  the  program 
will  reran  as  required.  If  a  word  with  a  length  that  is  less  than 
the  length  of  the  search  word  is  INPUTed  (except  the  empty 
string),  then  this  will  cause  an  error  because  of  line  7030 
which  expects  the  INPUT  to  be  at  least  equal  to  the  search 
word.  The  empty  string  is  all  right  because  then  LEN  AS  is  0, 
making  line  7020  FOR  A  =  1  TO  -2,  so  the  string  is  totally 
bypassed  and  the  problem  does  not  arise.  Try  also  entering 
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“YESTERDAY” — the  routine  reruns  because  it  has  detected 
the  three  letters  “YES”.  What  is  needed  is  a  routine  that 
detects  if  the  character  on  either  side  of  those  three  letters  is 
anything  other  than  a  letter.  We  need  to  be  careful  doing  this 
because  we  cannot  examine  the  characters  before  and  after 
the  three  letters  “YES”  if  they  occur  at  the  beginning  or  at 
the  end  of  an  INPUT;  they  do  not  exist,  and  to  attempt  to 
examine  them  would  cause  a  subscript  error.  Here  is  a  routine 
which  makes  allowances  for  this  by  adding  dummy  characters 
at  the  start  and  end  of  AS. 

7000  PRINT  "RNOTHER  G09" 

7010  INPUT 

7015  LET  RS!®”  ••+R$  +  "  •* 

7020  FOR  R«2  TO  LEN  R$~3 
7030  IF  RjSCR  TO  R+2.t  RND  < 

R*  (R-1)  <"n‘*  OR  R*tR~l)>“Z**)  RND 
CR*  (fi+3)  <“R**  OR  R$  (R+3)  >**2*‘)  THE 
N  RUN 

704.0  NEXT  R 
7050  STOP 

The  routine  takes  about  180  bytes  of  memory,  and  allows  all 
lengths  of  INPUT  up  to  the  maximum  length  that  a  string 
may  be.  If  you  want  to  change  the  search  word  in  a  program, 
then  it  may  be  worth  assigning  it  to  a  variable  or  having  an 
INPUT  somewhere  in  the  program  for  the  search  word.  You 
will  have  to  make  the  following  modifications  to  the  routine 
to  use  a  different  search  word: 


7000  PRINT  •■ENTER  SERRCH  WORD" 
7010  INPUT  S* 

7020  PRINT  ••ENTER  SENTENCE" 

7030  INPUT 

704.0  LET  R*s="  ••+R$  +  *'  " 

7050  LET  LS=LEN  S* 

7060  LET  LR=si_EN  Rf 

7070  FOR  R=:2  TO  LR-LS 

7060  IF  R^CR  TO  R+LS-1) =6$  RND  t 

R|i(R-l)  <"R"  OR  R|t  (R-l>  RND 

Cfl*  <R+LS)  <  "R"  OR  R*  (R+LST>  ••Z**>  T 

HEN  RUN 

7090  NEXT  fl 

7100  STOP 

If  the  routine  is  a  bit  too  long,  then,  provided  you  are  using 
the  same  search  word  every  time,  you  can  avoid  using  SS  and 
LS  and  spell  out  the  search  word  in  full  every  time  it  is  used. 
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and  replace  all  references  to  LS  with  the  length  of  the  search 
word.  See  the  example  using  “YES”  above. 

The  words  AND  and  OR  have  been  used  several  times  in 
the  past  examples,  so  it  is  important  that  we  know  what  they 
mean  in  a  computer  context. 

The  computer  is  constantly  looking  for  information  with 
which  to  make  a  TRUE  or  FALSE  decision.  If  you  say  to  it, 
in  effect,  “only  if  A  is  true  and  B  is  true  then  do  something” 
the  computer  will  check  both  conditions  before  doing  what¬ 
ever  it  is  you  have  commanded.  This  is  shown  by  the  next 
program,  which  only  prints  the  word  YES  if  A  is  equal  to  1 
and  B  is  equal  to  1 . 

When  you  run  it  the  first  time,  enter  1  for  A  and  1  for  B, 
and  you’ll  see  it  will  print  YES.  Then  try  it  with  other 
numbers  for  B,  to  show  that  when  AND  is  in  the  program 
line,  the  computer  seeks  to  satisfy  both  conditions  before 
acting.  Here  is  the  program: 

1©  PRINT  "ENTER  R  NUHBER" 

INPUT  P 

3©  PRINT  *  YOUR  FIRST  NUHBER  UR 
S  '  FI 

4-©  PRINT 

S©  PRINT  "ENTER  B  SECOND  NUNBE 
R" 

6©  INPUT  B 

T©  PRINT  "YOUR  SECOND  HUHSER  U 
RS  " ;  B 

S©  PRINT 

S©  IF  fi=:l  RND  B=rL  THEN  PRINT  " 
YES” 

Now  change  line  90  so  that  the  word  AND  becomes  OR, 
and  run  it  several  times.  You’ll  see  that  if  either  A  or 
B  is  equal  to  1,  the  computer  will  print  YES.  In  summary, 
with  AND  both  linked  statements  must  be  true;  with  OR 
the  computer  will  act  if  it  finds  either  one  of  them  to  be 
true. 

Let  us  now  look  at  another  type  of  INPUT  that  is  com¬ 
monly  used  in  games,  both  grid-type  games  and  board  games. 
This  is  an  INPUT  involving  coordinates  as  you  would  find  on 
some  maps.  For  instance,  you  might  have  a  board  laid  out 
like  this: 
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1  2  3  4  5 


The  coordinates  are  usually  entered  in  the  form  of  a  letter 
followed  by  a  number,  e.g.,  C3  if  you  are  referring  to  one 
square  as  in  a  game  such  as  “hunt  the  hurkle”  or  C3B4  if 
you  are  using  from-to  coordinates  in  a  board  game  such  as 
checkers.  If  you  have  decided  that  the  coordinates  are  to  be 
entered  in  the  form  of  a  letter  .followed  by  a  number,  chances 
are  that  sooner  or  later  someone  will — whether  deliberately  or 
accidentally — enter  the  coordinates  in  the  wrong  order  and 
foul  up  the  program.  This  routine  will  automatically  detect  if 
the  two  characters  of  a  coordinate  have  been  entered  in  the 
wrong  order  and  sort  them  out.  It  applies  to  the  board  layout 
above;  to  modify  it  for  other  ranges  of  characters  simply 
change  the  characters  in  quotes  in  lines  30  and  40.  Line  50  has 
merely  been  included  so  that  you  can  see  the  effect  of  the 
routine  if  any. 

10  INPUT 

a®  IF  LEN  1=1$  <a  THEN  GOTO  10 
as  LET  TO  2) 

30  IF  R$  (1)  >=:**1*’  RND  R$tlJ  <»’‘S 
"  BND  RND  <*’*£" 

THEN  LET  <2.1  +R$  1 1>  -  ' 
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4.0  XF  <••«••  OR  O 

R  R${S)<“X"  OR  R*{2)>“S*'  THEN  GO 
TO  10 

50  PRINT  R$ 

The  routine  takes  about  245  bytes  and  is  veiy  quick  to  mn. 
It  is  a  very  difficult  routine  to  crash,  but  I’m  sure  some  clever 
reader  will  find  a  way.  If  you  do  find  a  way  of  beating  the 
routiiKi,  then  modify  the  routine  to  prevent  that  error  happen¬ 
ing  again. 

The  routine  for  a  four-character  coordinate  is  somewhat 
more  complex.  The  idea  of  this  INPUT  is  that  you  can  enter 
the  number  of  the  square  you  are  moving /rom  and  the  square 
you  are  moving  to  in  one  go;  e.g.;  E3D4  would  mean  that 
you  moved  a  piece  from  square  E3  to  square  D4.  Let  us  first 
arrange  the  letters  and  numbers  into  order. 

1©  INPUT  R$ 

20  IF  LEN  R$<4  THEN  GOTO  10 
38  LET  f  TO  4-.^ 

40  XF  RND 

RND  RND 

then  let  TO  fS3  +«»  C1.1 

5©  XF  R*  <3}  >  RND 

RND  Rit4)  >  =  '  RND 

THEN  LET  R$  (3  TO  >  C4-.1  •»■«»  C3) 

G©  XF  Pi  (!)  <••«'•  OR  O 

R  OR  OR 

>  OR  OR 

OR  R5:  (4.)  THEN  GOTO  1© 

7©  PRINT  R$ 

Note  that  you  can  shorten  these  two  routines  by  using  the 
DIM  command.  In  the  first  program  you  can  add 

S  DXH  R$<aJ 

and  delete  lines  20  and  25.  For  the  second  program  add 
5  DIM  Pf4ll4-J 

and  delete  lines  20  and  30.  What  both  versions  achieve  is 
to  ensure  that  string  AS  is  neither  shorter  nor  longer  than 
the  required  length.  If  you  enter  an  INPUT  which  is  longer 
than  four  characters  in  the  second  routine,  then  the  rest 
of  the  characters  are  ignored.  If  the  number  of  characters 
enter^  is  less  than  four  characters,  spaces  are  added  if  you 
have  added  line  5  to  your  program  (then  rejected  in  line  60)  or 
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rejected  in  line  20  if  you  are  using  the  unmodified  version. 
Having  sorted  out  the  letters  and  numbers,  let  us  look  at 
sorting  out  legal  and  illegal  moves.  You  will  need  to  look  at 
the  sample  board  shown  earlier  for  this.  Suppose  we  have  an 
uncrowned  checkers  piece  on  square  E3.  We  need  to  work 
out  the  legal  moves  from  there.  An  uncrowned  checkers  piece 
can  only  move  one  square  forward  in  a  diagonal  direction. 
The  squares  it  may  end  up  on  are  D2  or  D4.  Before  reading 
on,  can  you  work  out  the  relationship  between  die  coordinates? 

Since  the  piece  can  only  move  forward  one  square  at  a 
time,  it  has  to  end  up  on  a  square  whose  letter  is  alphabeti¬ 
cally  nearest  to  E.  Now,  on  your  computer,  the  CODEs  of 
letters  that  follow  each  other  alphabetically  step  up  or  down 
by  1,  so  that  the  CODE  of  D  is  1  less  than  the  CODE  of  E. 
Therefore,  if  the  CODE  of  the  from  square  letter  is  not  1 
greater  than  the  CODE  of  the  to  square  letter,  then  it  is  not  a 
legal  move.  The  number  of  the /rom  square  must  be  1  greater 
or  1  less  than  the  number  of  the  to  square,  so  w^  end  up  with: 

6S  IF  NOT  <CODE  R$(l)»CODE  i 
3} +1)  OR  NOT  ( CCODE  R« (2) sCODE  R 
OR  (CODE  fi*(e)=CODE  (4 

>  -1)  )  THEN  GOTO  3.0 

Obviously  you  will  need  to  adapt  these  routines  to  suit  your 
programs,  and  they  are  only  intended  to  show  you  the  basis 
of  routines  that  you  may  like  to  incorporate  into  your  pro¬ 
grams.  They  also  help  to  demonstrate  the  approach  you  need 
to  take  to  solve  problems  of  tois  kind.  For  what  it’s  worth, 
we  suggest  you  try  to  follow  these  guidelines: 

1.  Work  out  exactly  what  you  want  to  accomplish. 

2.  Work  out  exactly  what  is  permitted,  and  some  of  the 
things  which  are  not  allowed  (e.g.,  the  empty  string). 

3.  Figure  out  how  you  can  prevent  these  happening,  or 
reject  them  when  they  do  happen. 

4.  Quickly  woric  out  in  your  head  whether  your  routine  does 
what  you  think  it  will  by  using  it  with  a  couple  of 
examples. 

5.  If  you  are  happy  with  your  routine,  enter  it  into  the 
computer  and  try  it  out  with  some  permitted  values  or 
characters  to  check  whether  there  is  a  bug  that  prevents 
these  values  being  entered.  When  happy  with  this,  try 
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out  the  routine  with  all  sorts  of  INPUTS  (for  example,  try 
entering  a  nonexistent  coordinate  such  as  F9  in  the  rou¬ 
tines  above).  You  are  now  ready  for  the  most  important 
test. 

6.  Let  a  friend  loose  on  the  routine  with  orders  to  make  a  fool 
of  the  routine.  The  above  routines  do  have  a  fallacy  but 
I’m  not  telling  you  what  it  is;  that’s  an  exercise  for  you. 

Finally,  let’s  look  at  numeric  INPUTs.  Clear  the  computer 
with  NEW  and  enter  the  following: 

10  INPUT  fi 
20  GOTO  10 

RUN  this  little  program  and  see  if  you  can  cause  it  to  crash 
in  any  way;  it  shouldn’t  be  too  difficult.  Try  entering  a  letter; 
try  entering  STOP;  try  entering  a  number  too  large  or  too 
small  for  the  computer  to  handle;  or  try  entering  a  keyword  or 
arithmetic  sign  such  as  -I- . 

Arithmetic  signs  cause  the  computer  to  display  a  syntax 
error  marker,  although  it  does  not  stop  the  program.  Key¬ 
words  and  symbols  also  cause  this  to  happen,  although  letters 
cause  the  program  to  stop  with  error  code  2,  which  means 
that  an  undefined  variable  has  been  used.  Variable?  Yes. 
When  you  enter  a  letter  in  response  to  a  numeric  INPUT,  the 
computer  thinks  you’re  entering  a  variable  and  this  can  some¬ 
times  be  very  useful.  With  the  same  program,  enter  1  on  the 
first  INPUT,  then  enter  A  the  second  time,  and  it  is  accepted! 
What  the  computer  has  done  is  look  up  the  value  of  A  and 
assigned  it  to  A — in  other  words  it  hasn’t  changed  the  value 
of  A.  Now  enter  STOP.  The  program  stops  with  error  D. 
Now  try  typing  in  PRINT  A,  and  you  get  the  number  1,  so 
the  program  has  stopped  before  updating  the  value  of  A.  In 
fact  if  you  do  manage  to  crash  a  numeric  INPUT  then  in 
general  the  computer  retains  the  previous  value  of  the  vari¬ 
able.  Not  that  it’s  all  that  useful,  but  under  certain  circum¬ 
stances  if  you  do  manage  to  restart  the  program,  then  the 
variable  does  have  a  value. 

The  easiest  way  to  get  around  these  problems  is  to  use 
string  INPUTS  and  evaluate  using  VAL.  Try: 

10  INPUT 
20  LET 
30  PRINT  R 
4.0  GOTO  10 
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You  should  find  this  quite  easy  to  crash,  and  many  things 
true  of  numeric  INPUTs  seem  to  happen  with  this  little 
routine.  However,  the  advantage  of  this  method  is  that  it  does 
not  crash  until  you  apply  VAL  if  there  is  an  error.  You  can 
process  the  string  before  applying  VAL  after  INPUTing  it  and 
spot  or  remove  errors  before  they  crash — that  is,  you  can 
process  the  string.  The  thing  to  remember  is  that  VAL  can 
work  with  anything  numeric,  not  just  numbers.  Try  the 
following: 

PRINT  VWL  "RN€f“ 

PRINT  UhI.  "SGH  -7*’ 

PRINT  VRL 

PRINT  URL  ”COS  I” 

(This  only  works  if  you  have  previously  defined  A,  of 
course.) 

Undefined  variable  names  are  the  curse  of  VAL,  along 
with  nonnumeric  statements  or  keywords  or  symbols.  These 
have  to  be  weeded  out  before  you  can  apply  VAL.  The 
easiest  case  is  that  where  only  numeric  INPUTs  are  allowed 
and  you  can  do  that  like  this: 


1©  INPUT  Ri 

a®  FOR  F  =  1  TO  L.EH  fi$ 

3©  IF  <•'©*■  O.R  T 

HEN  GOTO  1© 

4-0  NEXT  P 
50  LET  R=UPL 
60  PRINT  R 


Can  you  see  straight  away  what  would  defeat  the  routine? 
Our  old  friend  the  empty  string,  of  course.  This  would  bypass 
the  loop  FOR  F=1  TO  0,  making  it  totally  useless;  so  you 
have  to  add  15  IF  AS  =  “  ”  THEN  GOTO  10.  The  routine 
makes  you  enter  the  number  again  if  you  have  entered  anything 
but  numbers.  You  can  extend  the  idea  to  permit  arithmetic 
symbols  and  variable  names  if  you  like,  but  there  is  so  little 
use  for  this  that  it  hardly  seems  worthwhile; 


30  IF  CRXF)  OR  R*CFI>" 

RND  CRfcCF>  RND  R*(F)<>“ 

THEN  GOTO  1© 


»  j 


This  allows  you  to  enter  addition  symbols  and  exponentia¬ 
tion  symbols.  To  permit  additional  functions,  simply  add 
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them  within  the  second  set  of  brackets  linked  together  by 
AND.  This  is  not  terribly  useful,  but  you  may  find  a  use  for  it 
someday. 

We’ll  be  looking  at  VAL  and  other  string-processing  func¬ 
tions  in  detail  a  little  later  in  the  book,  but  for  now,  we  need 
to  examine  commands  which  lie  at  the  heart  of  the  comput¬ 
er’s  power  to  “think.” 


CHAPTER  8 
Conditional  statements 


IF/THEN  GOTO 


The  IF  statement  has  a  similar  function  to  GOTO,  but  it  will 
only  reroute  the  program  IF  certain  conditions  are  fulfilled. 
This  creates  a  conditional  branch.  The  IF/THEN  statement  is 
made  up  of  a  line  number  followed  by  the  words  IF/THEN 
GOTO  separated  by  a  relationship  which  must  be  determined 
before  leaving  the  line.  There  are  six  relation  operators  which 
can  be  used  to  compare  two  variables.  These  are: 

=  equal  to 

>  greater  than 

<  less  than 

<  >  not  equal  to 

>  =  greater  than  or  equal  to 

<  =  less  than  or  equal  to 

These  operators  are  used  to  connect  the  IF/THEN  state¬ 
ments  to  form  the  condition  to  be  determined. 

Here’s  an  example:  70  IF  Z  >  =  10  THEN  GOTO  100. 
This  will  be  read  by  the  computer  to  mean  IF  the  value  of 
the  variable  Z  is  greater  than,  or  equal  to,  10  THEN  the 
program  will  branch  to  line  100.  If  Z  is  less  than  10,  the 
program  will  continue  normal  execution,  with  line  80.  This 
gives  die  computer  decision-making  power,  the  real  source  of 
a  computer’s  apparent  ability  to  think. 

As  you’ve  probably  discovered,  the  computer  isn’t  indeci¬ 
sive  (unless  you  tell  it  to  be);  it  makes  a  firm  decision  every 
time  whether  or  not  to  do  something.  What  it  actually  does 
depends  on  what  you  tell  it  to  do,  usually  after  the  word 
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THEN  in  the  line.  Let’s  illustrate  this  with  a  simple  program 
to  print  out  the  number  you  have  just  entered  in  words  instead 
of  digits. 

1©  PRINT  ••ENTER  R  NUHSER  1  TO 

3 

2©  INPUT  R 

3©  IF  THEN  PRINT  "ONE" 

4.0  IF  THEN  PRINT  -TUO** 

S©  IF  R-3  THEN  PRINT  "THREE" 

You  n^d  not  be  limited  to  one  condition  between  the  IF 
and  THEN.  To  take  the  example  above,  suppose  you  were 
allowed  to  go  home  at  five  o’clock  only  if  you’d  finished 
your  work;  i.e.,  IF  it’s  five  o’clock  AND  you’ve  finished- 
your  work  THEN  go  home.  When  you  want  to  Join  two  or 
more  conditional  expressions  such  as  “you’ve  finished  your 
work,’’  you  can  use  three  connecting  words  to  join  the  ex¬ 
pressions.  These  are  AND,  OR,  and  NOT.  If  you  have  a 
conditional  expression  with  AND  joining  the  two  parts,  then 
the  computer  only  does  something  if  both  parts  are  true.  For 
example,  if  it’s  five  o’clock  but  you  haven’t  finished  your 
work,  then  you  are  not  entitled  to  go  home. 

To  illustrate  TRUE  and  FALSE,  try  this  program: 

10  INPUT  R 

2©  INPLrr  B 

3©  IF  R=i  RND  Bal  THEN  PRINT  " 
TRUE" 

Try  entering  different  values  and  see  the  results.  Try 
changing  the  values  in  line  30  to  see  what  effect  this  has. 
Make  a  n^e  of  your  answers  until  you  understand  what’s 
going  on. 

Let’s  look  at  OR.  Think  of  OR  along  the  lines  of  IF  it’s 
five  o’clock  OR  the  boss  says  you  can  leave  early  THEN  go 
home,  that  is,  do  something  when  one  of  the  alternatives  is 
true.  More  correctly,  do  something  when  at  least  one  of  the 
alternatives  is  true,  because  it  does  not  matter  how  many  are 
true  (they  may  all  be)  as  long  as  at  least  one  is  true.  So  you 
go  home  at  five  o’clock  anyway,  but  you  may  also  go  home 
when  the  boss  says  you  may — either  fact  entitles  you  to  go 
home.  Try  experimenting  with  this  program  in  the  same  way 
as  you  experimented  with  the  previous  program. 
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10  INPUT  fi 

S0  INPUT  B 

30  IF  R=1  OR  8=1  THEN  PRINT  "T 
RUE** 

The  last  word  (they’re  actually  called  logical  operations)  is 
NOT.  It  doesn’t  join  expressions  like  the  other  two,  but 
changes  their  meanings.  Study  this;  If  NOT  the  manager  has 
said  you  can  go  home  THEN  stay  at  work.  This  means  that 
unless  you’ve  been  told  that  you  may  go  home,  you  must  stay 
at  work.  What  h^pens  is  that  the  computer  looks  at  the 
expression  and  decides  that  if  it  isn’t  true  it  will  do  something 
(for  this  purpose  ignore  the  NOT  for  deciding  what  is  true 
and  what  isn’t).  That  is,  IF  NOT/THEN  is  true  when  what¬ 
ever  follows  NOT  is  false.  Something  is  done  only  when  a 
condition  is  not  met.  Try  this: 

10  INPUT  R 

S0  INPUT  B 

30  IF  NOT  THEN  PRINT  '’TRUE: 

TTtis  may  confuse  you  at  first,  but  if  you  experiment  with 
the  values  of  A  and  B,  you  will  notice  a  pattern  of  results 
which  illustrate  the  workings  of  NOT. 

You  may  have’ noticed  that  we  have  used  the  =  symbol  in 
all  the  examples  so  far.  Remember,  this  is  only  one  of  six 
relational  operators.  Refer  to  the  list  presented  earlier  of  the 
six  operators  used  on  your  computer. 

Change  the  programs  so  that  you  use  all  of  these  relational 
operators.  Play  around  with  the  programs  until  you  find 
yourself  able  to  predict  what  happens  each  time.  Try  combi¬ 
nations  of  AND,  OR,  and  NOT  and  see  in  which  order  they  are 
worked  out.  See  if  you  can  work  out  how  to  change  the  result 
by  putting  brackets  around  expressions.  Note  that  this  will  not 
work  in  every  case,  so  if  ascertain  expression  gives  problems, 
leave  it  and  try  another  one.  This  order  of  evaluation  is  called 
priorities,  and  is  dealt  with  in  detail  later  in  this  book. 

We  can  apply  conditional  expressions  to  strings  as  well  as 
numbers,  e.g.; 

10  INPUT  R 
S0  INPUT  B 
30  LET 
4.0  PRINT  X 
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RUN  this  program  to  see  what  happens.  The  first  time  you 
RUN  it,  enter  the  name  FRED  BLOGGS.  The  program  comes 
to  a  halt  normally.  Pretty  unexciting.  RUN  it  again  and  this 
time  try  entering  your  own  name  (if  your  name  happens  to  be 
FRED  BLOGGS  then  enter  somebody  else’s  name).  This 
time  tlie  program  will  self-destruct  because  of  the  NEW  in 
line  20.  If  you  substitute  your  name  or  a  code  number  for 
FRED  BLOGGS,  then  you  will  have  a  program  that  will  only 
work  for  you  or  those  that  know  the  code,  and  will  self- 
destruct  if  anyone  else  attempts  to  use  it. 

Let  us  now  look  at  values  in  conditional  expressions.  First 
of  all  we’ll  use  tiie  relational  operators.  You  will  find  that 
true  is  represented  by  1  and  false  by  0. 

10  INPUT 

20  IF  R#<>"FRED  BLOGGS"  THEN  N 

EW 

The  parentheses  are  not  essential,  but  they  do  makejt 
easier  to  understand  what  is  happening.  As  the  computer 
represents  true  by  1,  and  false  by  0,  replacing  the  second 
equals  sign  with  any  of  the  relational  operators  (that  is,  by  a 
“greater  than,’’  a  “less  than,’’  a  “not  equal,”  or  whatever) 
will  cause  the  program  to  give  a  0  or  a  1,  depending  on 
whether  or  not  the  particular  statement  is  true. 

The  0  and  1  results  can  be  put  to  good  use  within  a 
program.  The  best  way  to  do  this  is  to  multiply  some  other 
value  by  the  r^ult  of  die  true/false  (that  is,  the  1  or  0  which 
results  when  you  compare  the  two  values)  test.  It  means  that 
true  values  will  change,  but  false  ones  will  not,  as  anything 
multiplied  by  0  is  0. 

Try  changing  the  program  to  this: 

10  INPUT  ft 
20  INPUT  B 
3©  LET 
4.0  PRINT  X 

This  time  you  should  get  a  value  of  0  for  a  false  expression 
and  2  for  a  true  expression.  The  point  of  all  this  is  that  these 
values  of  conditional  expressions  are  numbers  and  can  be 
treated  as  numbers  and  this  is  very  useful.  Here  is  a  simple 
game  program,  BLOB  CATCHER,  to  illustrate  the  use  of 
what  we’ve  just  been  discussing. 
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Note  the  double  quotes  in  line  100.  You  get  these  from  the 
Q  key,  holding  down  SHIFT.  Do  not  fry  to  enter  it  as  the 
ordinary  quotes  (from  the  P  key)  twice.  The  quotes  from  the  Q 
are  useful  when  you  wish  to  include  quotes  within  a  pair  of 
quote  marks  in  a  PRINT  statement.  (By  the  way,  the  double 
quotes  from  the  Q  is  called  the  quote  image.) 


X0  RAND 

a0  ueT  s=0 

30  PRINT  RT 

;  RT  5  ,  "TINE .•  OiBSCORE:  ©■ 

4.0  FOR  FkINT  (RN0»30>  +1©  TO  O 

SO  LET  R=INT  (RND#S>  +1 
SO  PRINT  RT  Q,CO£>E  CR  ; 

•’■••;RT  S,i3;F;TRB  22;  S 

6S  IF  F4iO  THEN  PRINT  RT  S,14.; 


70  LET  SssS-^  f  INKEY*  ssSTR*  R>  ♦R 
SO  PRINT  RT  S^COOE  "  tR>; 


90  NEXT  F 

lOe  PRINT  RT  IS,1©; "THRT""S  RLL 


The  idea  of  the  game  is  to  press  the  same  key  as  the 
number  under  the  moving  blob;  for  instance,  if  the  blob  lands 
on  3  then  you  must  press  the  3  key,  and  you  will  score  the 
number,  and  in  this  case  3  is  added  to  your  score.  The 
number  of  attempts  you  have  left  is  continuously  displayed  on 
screen  as  is  your  score.  Line  70  is  the  one  we’re  interested  in 
at  the  moment.  Here  if  STRX  A  (the  value  of  A  converted  to  a 
string  so  that  it  can  be  compared  with  the  key  pressed)  is  the 
same  as  the  key  pressed,  then  the  logical  value  is  1  because 
the  expression  is  true.  Whatever  the  value,  it  is  multiplied  by 
the  value  of  A.  If  A  is  equal  to  0,  then  the  score  does  not 
change.  If  A  is  equal  to  1,  then  the  score  changes  by  1*A,  or 
A.  The  score  is  counted  by  the  variable  S.  The  number  of 
attempts  left  is  counted  by  F. 

Let  us  now  move  to  look  at  values  in  conditional  expres¬ 
sions  involving  the  logical  operations  AND,  OR,  and  NOT. 

X  AND  Y  has  the  value  X  if  Y  is  true  (nonzero)  or  0  if  Y 
is  false  (zero).  X  and  Y  can  be  expressions  like  X  =  2  or  Y 
=  2*B.  One  common  application  is  to  control  on-screen 
movement.  Many  games  use  the  cursor-arrow  keys  to  control 
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movement  on  screen.  This  is  one  way  of  moving  an  object 
left  or  right  along  the  screen; 

11  iFlNKEYil^-S”  X>d  THEN 

RHD  X<3©  THEN 
^5©  PRINT  RT  21  , -X;  ;  RT  21,  X;  ” 

S0  GOTO  20 

This  moves  a  blob  two  columns  at  a  time  along  the  bottom 
row  of  the  screen.  You  can  do  the  same  thing  with: 


10  LET  XstlS 

20  LET  XsX- tINKEY$  =  **5"  RN0  X  >  1 
)  »^2+CINKEY*  =  **8”  «ND  X<30r*a^  . 

30  PRINT  RT  2a,x.:  •*B";RT  21, X; 

«« 

4.0  GOTO  20 

Or  with: 


10  LET  X-IS 

20  LET  X“X-“<2  RNO  INKEY St«'*5**  R 
ND  X>l)+(2  RND  INKey*a**S’*  RND  X< 
30) 

3©  PRINT  ftT  21,x;  21,XJ** 

4.0  GOTO  20 

The  point  to  note  with  the  last  two  programs  is  that  the 
expressions  in  brackets  take  the  value  of  the  number  before 
the  first  AND  if  all  the  expressions  after  the  AND  are  true. 
Compare  these  with  X  AND  Y,  which  we  have  just  dis¬ 
cussed.  Here  X  is  a  number  (2  in  this  case)  and  not  an 
expression.  You  can  think  of  line  20  above  as  20  LET  X  =  X  — 
(2  if  the  5  key  is  pressed  and  if  the  value  of  X  is  greater 
than  1,  otherwise  0)  +  (2  if  the  8  key  is  pressed  and  the 
value  of  X  is  less  than  30,  otherwise  0). 

You  might  think  why  go  to  these  complications  to  do 
something  that  could  be  done  equally  well  by  a  series  of 
IF/THEN  lines.  The  answer  is  that,  used  properly  and  in  the 
right  circumstances,  several  program  lines  can  be  replaced  by 
one  long  conditional  expression,  thus  saving  memory  and 
possibly  making  the  program  RUN  faster.  In  addition,  when 
you  become  more  familiar  with  these  conditional  expressions, 
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you  will  find  that  sometimes  they  can  actually  clarify  listings 
over  a  long  set  of  IF/THEN  statements.  AND  can  applied 
to  string  variables  and  string  constants  as  well,  e.g.: 

1©  PRINT  "ENTER  YOUR  HRME" 

20  INPUT  R4 

3©  LET  RND  «$<>*’ERED  BL 

CiGGS**)  +  ("HRSTER"  RH&  fi$a"FREI>  BL 
OGG5**5 

4.0  PRINT  "HELLO 

or  you  can  replace  30  and  40  by 

-30  PRINT  "HELLO  (R!|l  RND  R$<> 

"FRED  BLOGGS") + {"HfiSTER"  RND 
"FRED  SL06GS”) 

The  expression  in  parentheses  takes  the  form  of  the  first 
expression  before  AND  in  the  parentheses  if  the  expressions 
after  AND  are  true.  If  false,  the  empty  or  null  string  is 
obtained.  What  the  program  does  is  recognize  FRED  BLOGGS 
as  being  its  master  and  acknowledges  this  >by  PRINTing 
MASTER.  This  could  be  circumvented  if  you  wished  by 
adding  an  extra  space  between  FRED  and  BLOGGS  when 
entering  the  name,  to  fool  all  concerned.  This  routine  saves 
nothing  over. 

10  PRINT  "ENTER  YOUR  NRME" 

2©  INPUT  R$ 

-  30  IF  R*ss"FRED  BLOGGS"  THEN  LE 

T  R4i  =  "HRSTER" 

4.0  PRINT  "HELLO  R$ 

However,  if  you  wanted  to  print  out  different  messages  for 
a  list  of  names,  then  you  can  save  a  great  deal  of  memory 
by  using  this  method.  Try  writing  a  program  that  will  in 
one  line  sort  out  which  message  to  print  for  each  of  these 
names: 


message 

name 

MASTER 

FRED 

IDIOT 

JIM 

TOM 

TOM 

BEAUTIFUL 

JILL 

Yes,  it  can  be  done!  Here’s  how: 
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30  L.ET  «ND  = 

eO")  +  (*•  IDIOT*'  RND  R$  =  “v.fIH**5 
RND  R$<>**FRED”  RHD  R$<>**i-IIH*'  RND 
<>  "UILl-'*)  -I- (“BERUTIFUi-**  RND 
«"  JIl-l^”> 

If  you  had  (Ag  AND  AS  =  “TOM”)  instead  of  (AS  AND 
AS  <>  “FRED”  and  Ago  “JIM”  and  Ago  “JILL”)  you 
were  wrong — ^it  would  work  for  those  four  names  but  if  any 
other  name  is  entered,  you  get  the  null  string  which  isn’t  very 
useful.  You  may  have  noticed  that  the  examples  mainly  use 
addition  or  subtraction — this  is  because  of  the  default  value  of 
zero  not  affecting  the  results  in  addition  or  subtraction.  We 
shall  see  now  that  OR  is  used  mainly  for  multiplication  or 
division. 

X  OR  Y  has  the  value  1  if  Y  is  nonzero  (true)  or  X  if  Y  is 
zero  (false). 

OR  cannot  be  applied  to  strings  as  we  saw  with  AND 
above.  Let  us  take  this  example  to  illustrate  the  action  of 
OR  in  this  context;  Suppose  a  conductor  on  a  bus  wanted  a 
program  to  let  him  know  what  fare  to  charge  a  schoolchild, 
and  that  the  age  limit  for  these  reduced  fares  was  14. 

S  PRI^r^  "FRRE"?" 

10  IHPijrr  F«RE 

IS  PRINT 

S0  INPUT  RGE 

30  LET  FRREsFRRE* C0.S  OR  ROE > 1 

4.) 

4.0  PRINT  FRRE 

Lines  10  and  20  ask  you  to  enter  the  normal  adult  fare  and 
the  age  of  the  passenger/commuter.  Now  then,  to  understand 
this  a  little  better,  let  us  convert  it  to  plainer  English:  LET 
FARE  =  FARE*(0.5  unless  his  or  her  age  is  over  14).  If  the 
expression  following  OR  in  brackets  is  true,  then  the  expres¬ 
sion  in  brackets  has  the  value  1.  However,  if  the  expression 
following  OR  is  false  (he  or  she  is  14  or  younger),  then  the 
expression  t^es  the  value  before  the  OR.  This  number  can 
also  be  a  variable  if  you  like.  On  its  own  this  routine  does  not 
have  much  to  offer  against: 

30  IF  RGE<=14.  THEN  LET  FRRE=:FR 
RE  ^0 . 5 

However,  if  you  had  several  categories  of  fares  on  offer, 
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then  the  method  using  OR  can  be  extended  to  evaluate  all  the 
categories  on  one  line. 

NOT  X  takes  the  value  of  0  if  the  relation  X  is  true  and  the 
value  1  if  the  relation  is  false.  The  best  way  to  illustrate  this 
is  with  this  kind  of  example: 

X©  XNPUT  R 
S©  INPUT  B 

30  P.PINT  fij  TRB  4;B..  TRB  S;  NOT 
.RssBJ 

4.0  GOTO  10 

What  you  will  see  on  the  screen  are  the  two  numbers  you 
entered  in  lines  10  and  20,  followed  by  a  0  or  a  1 .  From  the 
results  you  get,  see  if  you  can  work  out  which  relationships 
between  A  and  B  produce  which  values  in  the  third  column. 
Try  other  relational  operators  in  place  of  =  in  line  30.  Why 
do  some  relations  produce  the  same  results  as  others  without 
NOT?  Try  changing  line  30  to: 

30  PRINT  R;TRB  4-;B.;TRB  3iR<>B 

Why  does  the  program  give  the  same  results  as  the  previ¬ 
ous  version  above?  Can  you  see  similar  results  between  other 
pairs  of  relations? 

Finally,  let  us  look  at  two  interesting  little  oddities.  First, 
consider  this  line: 

10  IF  R  =  1  THHN  IF  THCN  PRI 

NT  "TRUE" 

It’s  to  all  intents  and  purposes  the  same  as 
^^1®,.3:F  R  =  i  RND  B=:l  THEN  PRINT  " 

except  that  it  requires  one  extra  byte  in  memory.  There  is  a 
slight  difference  in  that  if  you  haven’t  previously  defined  B, 
the  version  using  AND  will  crash  with  report  2.  However,  if 
the  first  part  of  the  other  version  is  false,  the  program  skips 
over  the  remainder  of  the  line.  You  may  be  able  to  find  an 
application  for  this. 

The  second  oddity  is  not  really  an  oddity,  more  something 
that  is  missed  by  many  people.  Try  these  programs: 

10  INPUT  R 

20  IF  R  THEN  PRINT  R 
10  INPUT  R 

20  IF  NOT  R  THEN  PRINT  R 
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You  might  not  expect  these  programs  to  work  because 
there  are  no  relational  qierators  for  comparing  A  with  any¬ 
thing.  Here,  however,  the  value  of  A  is  considered  to  be  true 
if  it  is  not  0,  or  0  if  you  use  NOT.  As  with  everything 
else  in  this  section,  experiment  with  the  examples  until  you 
understand  exactly  what  each  routine  does.  You  will  find  that 
these  statements  can  be  very  powerful  programming  facilities, 
and  your  programming  can  be  greatly  improved  as  a  result. 

You  can  use  IF/THEN  GOTO  to  terminate  a  “win  condi¬ 
tion”  message  after  a  certain  number  of  cycles.  Enter  and  run 
the  following: 

X©  L.ET  X=© 

a©  PRINT  “YOU  HfiUE  UON  “ ; 

30  L-ET  X=XH-1 

4.0  IF  .X<a5  THEN  GOTO  a© 

This  will  ensure  that  YOU  HAVE  WON  is  printed  out  a 
limited  number  of  times. 

As  you’ve  seen,  IF/THEN  is  not  just  used  to  branch  to  new 
lines.  NEW  the  program,  and  enter  the  following.  You’ll  see 
it  has  a  similar  effect,  although  the  IF  is  not  just  sending  the 
program  to  a  line  number. 

10  L.ET  X=© 

20  LET  .X=X  +  1 

30  IF  X<2S  THEN  PRINT  “YOU  HW 
E  WON  •• ; 

4.0  GOTO  20 

This  program  is  not  as  useful  as  the  other  one,  as  it  will  not 
stop  even  when  it  has  finished  printing  put  YOU  HAVE 
WON.  You  can  easily  discover  this  by  running  it,  then 
pressing  BREAK,  and  then  PRINT  X,  ENTER. 

It  is  perhaps  worth  mentioning  that  the  computer  is  a  fairly 
dogmatic  creature.  If  you  specify  that  a  program  branch  is  to 
be  made  only  if  the  value  of  Z,  for  example,  is  equal  to  6,  the 
program  will  continue  in  a  never-ending  loop  if  Z  is  not 
exactly  equal  to  6,  no  matter  how  close  it  is  (like  5.999999). 
If  you  think  the  value  mi^t  be  fractionally  different  from  the 
one  you  want  as  a  condition  for  branching,  make  sure  you 
specify  that  the  relational  operator  should  be,  say,  greater 
than  5.5,  or  greater  than  or  equal  to  5.9,  rather  than  just  equal 
to  6. 
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IF/THEN/ELSE 


Many  dialects  of  BASIC  include  an  ELSE  option,  used  in 
the  statement  IF/THEN/ELSE.  There  is  no  such  function  in 
our  computer’s  BASIC,  but  its  logic  can  be  used  to  emulate 
this. 

The  IF/THEN/ELSE  is  a  very  useful  variation  on  IF.  The 
computer  can  be  programmed  to  do  something  if  the  condi¬ 
tion  being  tested  for  is  found  to  be  true,  and  something  else, 
other  than  just  go  to  the  next  line,  if  the  condition  is  found  to 
be  false. 

You  can  use  the  following  substitution  for  DF/THEN/ELSE 
to  produce  some  very  interesting  graphs  in  the  next  program. 
You  simply  enter  the  function  you  would  like  graphed  in  line 
55.  This  is  not  the' most  efficient  method  of  programming  on 
the  computers,  but  it  is  useful  as  a  means  of  demonstrating 
the  IF/THEN/ELSE  substitution.  As  the  program  runs,  it 
evaluates  K  each  time  it  comes  to  line  55.  Line  70  looks  at 
the  value  of  K  and  prints  a  0  if  K  is  greater  than  or  equal  to 
0.5,  and  a  period  if  K  is  less  than  0.5.  This  is  the  same  as 
a  line  reading  IF  K  is  ^eater  than  or  equal  to  0.5  THEN  print 
“0”  ELSE  print  Each  of  the  other  graphs  uses  different 
values  for  K,  as  generated  by  line  55.  The  condition  tested 
for  in  line  70  also  varies.  Run  the  samples  given,  using  your 
own  choice  of  graphics  symbol  in  line  70,  and  then  create  a 
few  of  your  own.  It  is  likely  that  you’ll  have  to  change  the 
scaling  fw  certain  functions. 

1©  REN  GRRPH -PLOTTER 
SO  REM  CC)  W,  %J.  FfiBERGE 

30  FOR  Y=iO  TO  -lO  STEP  -i 
35  IF  YoIO  RND  Y%'>-10  RND  Y>- 
1  THEN  PRINT  ’*  **; 

4.©  PRINT  Y;TRB  4-; 

SO  FOR  Xs=-10  TO  10 
SS  LET  K=Y-X^tX/2+7 
70  PRINT  f"0"  RND  K>ss.S)+t"." 

RND  K<.S>; 

110  NEXT  X 

ISO  PRINT 

130  NEXT  Y 

14-0  PRINT  TRB  4-;  "  .  9.  7- S.  3 . 1  -  1 . 3 
.5.7.9»  ** 
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IQ  ..... QQQQOQQQQQQ . 

9  QQQQQQQOQQQ  . 

3  QQQQOQQQQQQ  . 

7  .... . QQQQQOOQOQQ . 

&  ..... QQQQOQQQQQQ . 

S  .QQQQQQQQQ.  . 

4.  ......  QQQQQQQQQ  .  . 

3  ...... QQQQQQQQQ . . 

2  . QQQQQQQQQ.. 

1  . QQQQQQQ  .  .  . 

0  .  . . QQQQQQQ  .  .  . 

-1  .......QQQQQQQ... 

-3  eOOOQQQ  .  .  . 

~3  OQOQQ  .  .  .  . 

-4-  .......  .QQOQO.  .  .  . 

-5  ......... 000 . . . . , 

-6  . .  .  QQQ . 

-7  . .  . 


'  ~S  ..................... 

-9  . . . . 

“10  . . . . . 

.  9^ .  7  .  ^5 . 3 . 1 .  i  .  3 . 5 . 7 . 9  . 


IQ  .... .OOOOQQQQQQQ. . . . . 

9  QQOOQQQQQOO  .  .  .  .  . 

3  ...... QQQQQQQQQ ...... 

7  ...... Q0OQOQO0O ...... 

......  OQOQOQQQQ  ...... 

5  ....... QQQQQQQ ....... 

4  ....... QQQQQQQ ....... 

3  ........ QQQQQ ........ 

3  ........ QQQQQ ........ 

1  ......... QQQ ......... 

0  . . . 

-1  ......... QQQ ......... 

-a  QQQQQ  ........ 

-3  ........ QQQQQ ........ 

-4-  .......  QQQQQQQ  ....... 

“5  .  QQQQQQQ . . 

“6  ...... QQOOQQOOQ ...... 

•  «  •  «  «  % 

0000Q0000 ...... 

—  ^  •  • 00000000000 «  «  «  «  « 

X0  •  «  »  •  •  00000000000  .  «  «  «  « 


m  0  •  *3^  ■  «  X  «  !L  »  si?  m  S  ^  « 

iYs 
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1© 

9 

S 


6 

S 

4. 

3 

2 

X 

© 


70  PRINT  {  'V  ’RND  K  >*.  aSJ  RND 

K  <  .2S) 

Try  to  work  out  what  line  55  should  read  to  produce  this 


CHAPTER  9 
Loops 


FOR/NEXT  loops 


FOR/NEXT  loops  are  additional  useful  parts  of  your  BASIC 
working  tools  on  the  computer.  It  makes  sense  to  study  them 
now,  because  ttie  last  series  of  programs  relied  heavily  on 
two  FOR/NEXT  loops,  the  Y  loop  which  started  at  line  30 
and  ended  at  130,  and  the  X  loop  which  ran  from  line  50  to 
line  110.  Because  these  are  slightly  more  complex  than  the 
simplest  FOR/NEXT  loops,  we’ll  leave  the  discussion  of 
those  alone  for  die  time  being. 

A  FOR/NEXT  loop  is  controlled  by  two  lines  (one  which 
reads  something  like  FOR  A==  1  TO  1000;  the  second,  NEXT 
A).  All  the  steps  between  these  two  lines  are  carried  out  once 
every  time  through  the  loop.  The  difference  between  the  two 
numbers  in  the  FOR  statement,  plus  one  (so  in  our  example 
of  FOR  A  =  1  TO  1000  the  difference  plus  one  would  be  1000), 
is  generally  the  number  of  times  the  steps  between  the  lines 
are  carried  out. 

For  example,  in  the  next  program,  the  word  TEST  is 
printed  out  four  times: 

10  FOR  R  =  1  TO  4. 

30  PRINT  “TEST“ 

3©  NEXT  R 

TEST 

TEST 

TEST 

TEST 

FOR  statements  are  made  up  of  the  line  number,  followed 
by  the  FOR,  a  numeric  variable  (a  single  letter),  an  equals 
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sign,  a  numeric  expression  (a  number,  or  a  previously  as* 
signed  numeric  variable),  the  word  TO,  and  finally,  another 
numeric  expression  (number  of  previously  assigned  numeric 
variable)  which  is  different  from  the  first  one.  That  may 
sound  incredibly  complicated,  but  it  is  really  quite  simple. 
The  FOR  line  reads: 

3.00  FOR  J  =  1  TO  100 

Hie  NEXT  line,  which  terminates  the  loop,  is  of  the  form: 

S00  NEXT  O 

Hie  NEXT  statement,  then,  is  made  up  of  a  line  number, 
the  word  NEXT,  and  the  variable  set  as  the  control  in  the 
FOR  statement,  earlier  in  the  program.  The  NEXT  sequence 
is  used  solely  to  tell  the  computer  when  the  sequence  of 
programming  which  is  being  repeated  is  to  stop.  When  the 
value  of  the  control  variable  (J)  reaches  the  value  set  in  the 
FOR  statement  (the  second  numeric  variable  set  in  the  FOR 
statement),  the  program  passes  through  the  loop  for  the  final 
time  and  then  continues  with  the  line  following  the  one 
containing  the  word  NEXT. 

Enter  and  run  this  example: 

1©  FOR  R=a  TO  1© 

B0  PRINT  TRB  4.;fi  ;TRB  S  . 

3©  NEXT  fi  .  .  o  Q.. 

1  1 

3  4. 

3  © 

4-  3.6 

5  25 

6  36 

7  4-9 

3  64. 

9  SI 

10  100 

The  control  variable  is  A,  and  line  20  prints  out  A  and  A 
squared.  Note  that  the  limits  of  the  control  loop  are  stated 
explicitly  in  liite  10  (1  TO  10). 

Note  that  to  avoid  flicker  when  using  PAUSE  you  can 
replace  it  with  a  FOR/NEXT  loop  (when  running  a  program 
in  the  SLOW  mode).  For  example,  10  PAUSE  500  could  be 
replaced  by: 
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10  FOR  Fsil  TO  SO© 
as  NEXT  F 

A  loop  of  60  corresponds  approximately  to  one  second  in 
practice  as  does  PAUSE  60. 

Look  at  this  next  example; 

IS  i_ET  R=S 
S©  l-ET  B  =  i6 
30  FOR  C-fi  TO  B 

4.0  PRINT  TRB  4.:C;TRB  8;  Tfi 

B  14-;  CyR 

50  NEXT  C 


5 

0.5 

1 

s 

0.6 

1  .a 

/■ 

0.7 

1.4. 

s 

8 . 8 

1.6 

9 

0.9 

1.8 

1© 

1 

a 

11 

1 . 1 

a. a 

IS 

1  .S 

a. 4. 

13 

1 . 3 

a. 6 

14- 

1.4. 

a. 8 

IS 

1.5 

3 

le 

1.6 

3. a 

Note  that  in  this  program  the  limits  of  the  FOR/NEXT  loop 
are  two  variables,  A  and  B,  which  have  been  previously 
defined.  You  will  find  there  are  many  programs  where  you 
will  want  a  limited  FOR/NEXT  loop,  with  the  limits  a  result 
of  things  that  have  occurred  elsewhere  in  the  program. 


Nested  loops 


As  you’ve  just  seen,  a  FOR/NEXT  loop  allows  us  to  alter 
the  value  of  one  variable  (by  a  count  of  one  in  the  cases 
we’ve  studied),  to  repeat  a  programmed  series  of  events  a 
specified  number  of  times.  Now,  suppose  there  were  two  or 
more  variables  to  be  operated  upon.  In  this  case,  you  would 
need  to  vary  both  values.  This  can  be  done  quite  simply  by 
nesting  loops,  in  which  one  loop,  controlled  by  one  set  of 
FOR/NEXT  statements,  operates  within  another  set. 

Enter  and  run  the  following  program,  which  nests  a  B  loop 
within  an  A  loop: 
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10  REH  NESTED  LOOPS 
20  rOR  Ral  TO  12 
30  FOR  Sal  TO  12 
4.0  SCROLL 

50  PRINT  TRB  S,  B; TIMES 
IS 

60  NEXT  m 
T©  SCROLL 
3©  SCROLL 
0©  NEXT  R 

When  you  run  this,  you’ll  see  it  prints  out  the  multiplica¬ 
tion  table,  from  1 X  1  to  12  x  12.  Part  of  the  run  is; 

9  TIMES  7  IS  63 

10  TIMES  7  IS  70 

11  TIMES  7  IS  77 

12  TIMES  7  IS  84- 

1  TIMES  8  IS  8 

2  TIMES  8  IS  16 

3  TIMES  8  IS  24- 

4-  TIMES  8  IS  32 

5  TIMES  8  IS  4.0 

6  TIMES  8  IS  i8 

7  TIMES  8  IS  S6 

8  TIMES  8  IS  64. 

9  TIMES  8  IS  72 

1©  TIMES  8  IS  80 

11  TIMES  8  IS  88 

In  this  program,  the  control  variable  A  stays  at  1,  while  the 
loop  controlled  by  B  runs  from  1  to  12.  After  the  double 
scroll  (lines  70  and  80),  the  control  variable  A  increases  by 
one,  and  the  B  loop  runs  through  again,  this  time  with  the  A 
equal  to  2,  and  so  on,  until  the  B  loop  has  run  through  with 
the  A  equal  to  12.  There  is  no  reason  why  you  should  have 
only  two  nested  loops. 

It  is  vital  that  the  control  variables  of  nested  loops  be  in  the 
correct  order,  that  is,  that  the  firet  loop  begun  is  the  last  one 
to  end.  Try  swapping  lines  60  and  90  of  this  program  and  see 
what  happens. 

Hiis  is  part  of  the  output: 

1  TIMES  6  IS  6 

I  TIMES  7  IS  7 

i  TIMES  3  IS  8 

1  TIMES  9  IS  9 

I  TIMES  1©  IS  10 

1  TIMES  11  IS  11 

1  TIMES  12  IS.  12 
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a 

TIMES 

13 

IS 

26 

3 

TIMES 

14L 

IS 

4.2 

4. 

TIMES 

15 

IS 

60 

s 

TIMES 

16 

IS 

60 

Use  the  same  variable  for  as  many  purposes  as  you  can, 
especially  when  you  use  FOR/NEXT  loops.  Don’t  use  another 
letter  as  the  name  for  a  second  FOR/NEXT  loop  if  you’ve 
already  finished  with  a  previous  one,  as  this  wastes  working 
space  memory  c<x)sumed  when  the  program  is  running.  This 
may  be  important  when  you’re  running  a  program  which  is 
very  close  to  using  up  all  the  available  memory. 

The  following  two  sample  programs  show  what  I  mean. 
The  first  uses  less  working  space  or  memory  than  does  the 
second,  because  it  uses  the  same  name  (A)  as  the  control 
variable  in  both  loops.  The  second  one,  as  you  see,  uses  two 
different  names  (A  and  B). 

xm  roR  R=1  TO  4. 

20  PRim"  R.;  ••  •*  : 

3©  NEXT  R 

4-0  FOR  fi=a@  TO  25 

5©  PRINT  O;  ■* 

63  NEXT  R 


1©  FOR  R  =  1  TO  4- 

as  PRirviT  R;  •• 

30  NEXT  R 

4-0  FOR  B=a©  TO  as 

50  PRINT  Bi" 

60  NEXT  e 


STEP 


For  this  next  discussion,  we  need  the  program  TABULA¬ 
TOR  ROCKET  RANGE.  Enter  and  run  the  following  program: 


1©  REM  TRBUL.RTOR  ROCKET  RRNGE 
2©  REM  tCi  CHRRLTON  19S2 
as  DIM  R$i(5..5) 

27  SCROLL 

30  FOR  0=13  TO  1  STEP  -1 
4.0  PRINT  TRB  3*vJ;  O 
5©  FOR  R®1  TO  U 
52  SCROLL 
55  NEXT  ft 


MASTERING  YOUR  TIMEX  SINCLAIR  1000 


74. 

7S 

S0 

90 

110 

115 

120 

30; 

130 

17© 

180 

185 

190 

200 

210 


NEXT  U.I 

LET 

LET 

LET  R$: 
LET 

LET  R$ 
REM  *  * 
LET  Os 
FOR  Rs 
SCROLL 
PRINT 


O 

R$  (1)  s“  0" 

R$  (2)  s'*  101“ 

R$:  C3)  s“  i»»i“ 

(4.) 

R$  (5)  =••  >  *  < 

**  MR IN  PROORRM 
OsINT  CRND*^25>  4-1 
Rsl  TO  S 


;TRB 


R|r  CRJ  ;  TRE 


NEXT  R 

LET  SPRCEsO/3 
FOR  Psl  TO  SPRCE 
SCROLL 

PRINT  ••C**;TRB  30  .• 
NEXT  P 
GOTO  90 
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The  important  lines  for  our  discussion  at  this  point  are  30, 
40,  and  70.  You’ll  see  when  you  run  the  program  that  this 
causes  the  numbers  10  down  to  1  to  appear  on  the  screen. 
The  word  STEP  (in  line  30)  after  the  1  controls  this.  Change 
the  -1  following  the  word  STEP  to  -2,  and  see  what  happens. 
If  no  STEP  is  specified,  the  computer  assumes  you  want  a 
positive  STEP  of  1,  which  is  what  has  been  needed  in  the 
earlier  examples  in  this  section. 

The  STEP  command,  then,  is  used  within  a  FOR/NEXT 
loop  to  allow  the  user  to  specify  the  value  of  the  increment  (or 
decrement)  of  the  control  variable.  The  STEP  does  not  have 
to  be  a  whole  number,  although  you  must  ensure — if  the 
number  which  follows  the  word  TO  in  the  initial  FOR  state¬ 
ment,  the  limit  value,  is  lower  than  the  number  before  the 
TO— that  the  STEP  is  negative.  Try  the  following  examples: 


10  FOR  ft=100  TO  1  STEP 
20  PRINT  TRB  8;  R 
3©  NEXT  R 


'  12 « E 


10© 

87.5 
75 

62.5 
5© 

37.5 
25 

12.5 


10  FOR  R  =  10  TO  1  STEP  -©.712 
20  PRINT  TRB  8; R 
30  NEXT  R 

10 

2.281 
8.562 
7 .84.3 
7.124. 

6.4.05 
5.686 
4..  067 
4..  24:8 
3.52© 

2.81 

2.001 

1,372 
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In  a  FOR/NEXT  loop,  STEP  does  not  have  to  be  a  whole 
number;  it  may  be  a  fraction,  a  decimal,  or  the  result  of  a 
calculation,  and  it  does  not  have  to  hit  the  limit  value  of  the 
loop  exactly.  It  carries  on  looping  as  long  as  it  is  less  than  or 
equal  to  the  limit.-  You  cannot  easily  change  the  value  of 
STEP  during  the  course  of  a  loop. 

If  the  limit  value  has  already  been  exceeded  then  loop  will 
be  totally  bypassed,  e.g.; 

a®  FOR  I si  TO  B 
2®  PRINT  "X* 

30  NEXT  I 
4.0  PRINT  ”Y” 

You  may  be  able  to  use  this  idea  to  prevent  loops  from 
being  executed  if  certain  conditions  exist.  For  example,  if 
you  didn’t  want  a  black  line  to  be  drawn  if  X  was  equal  to 
6,  you  could  have  a  program  as  follows.  Note  that  X  ht^  to 
be  entered  at  first,  in  line  10.  Run  it  a  few  times,  entering 
numbers  other  than  6,  and  see  what  happens,  and  then  enter  a 
6. 

1©  INPUT  X 

20  PRINT  **YOUR  NUMBER  URS  “iX 
3©  FOR  TQ  31 

4-0  PRINT  CHR*  123; 

5©  NeXT  R 
S0  GOTO  10 

The  lest  to  see  if  the  limit  value  has  been  exceeded  is  made 
at  the  line  containing  the  FOR  statement. 

You  might  like  to  try  a  STEP  value  of  0.  The  control 
variable  is  never  incremented,  so  the  loop  never  ends.  You 
can  jump  out  of  FOR/NEXT  loops  without  any  problems,  but 
you  cannot  jump  into  a  loop  unless  the  control  variable  has 
already  been  set  up  (effectively  if  you’ve  used  that  loop 
before).  The  loop  jumps  from  NEXT  to  the  line  following 
the  FOR  statement  in  a  FOR/NEXT  loop. 


CHAPTER  10 
GOSUB  and  RETURN 


A  subroutine  is  a  block  of  program  within  a  larger  program 
which  performs  one  specific  task.  The  main  program  is 
executed,  line  by  line,  until  the  subroutine  is  called,  by  the 
GOSUB  command.  The  computer  goes  to  the  specified  num¬ 
ber,  and  works  through  in  line  order  from  that  point  until  it 
hits  the  word  RETURN.  This  is  the  signal  for  the  computer  to 
return  to  the  main  program,  to  the  line  after  the  one  which 
sent  it  to  the  subroutine. 

A  subroutine  is  useful  if  a  particular  set  of  "calculations  has 
to  be  carried  out  a  number  of  times  within  a  program,  and  at 
different  places  within  the  program.  For  example,  in  a  finan¬ 
cial  program,  there  may  be  a  number  of  tax  calculations  to  be 
carried  out  at  different  points  within  the  program.  Whenever 
this  need  arises,  the  program  is  told  to  GOSUB,  and  it  stays 
in  this  subroutine  until  it  hits  the  word  RETURN,  when  it 
returns  to  the  line  after  the  GOSUB  command. 

A  subroutine  is  written  exactly  like  the  main  program, 
except  that  it  is  a  program  within  a  program,  and  is  bounded 
by  two  lines,  one  containing  the  GOSUB  and  the  other  the 
RETURN  line.  The  GOSUB  command  is  made  up  from  a 
line  number,  followed  by  the  word  GOSUB,  and  another  line 
number.  A  line  such  as  40  GOSUB  100  tells  the  computer 
to  branch  to  line  100  and  continue  executing  the  program  in 
order,  just  as  if  line  40- had  said  GOTO  100.  However,  when 
the  program  reaches  a  line  containing  the  word  RETURN,  the 
action  reverts  to  the  main  program,  at  the  line  number  which 
follows  the  one  containing  the  GOSUB  statement  (in  this  case, 
the  first  line  number  after  40). 

A  simple  example,  showing  GOSUB  and  RETURN,  is  as 
folloiVs.  Enter  and  run  it  a  few  times,  then  come  back  to  the 
book  for  a  discussion  on  it. 
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ENTER  R  NUHBER 
YOUR  NUHBER  IS  24- 
24-  SOURRED  IS  S76 

ENTER  R  NUHSER 
YOUR  NUHBER  IS  7 
7  SOURRED  IS  4-9 

ENTER  R  NUHBER 

YOUR  NUHBER  IS  &&BB3B 

assess  sourre{>  is  7ssi-2xss®@!e© 

EhFF^  R  t4UHBER 
YOUR  NUHBER  IS  87 
87  SOURRED  IS  7569 


3.0  REH  GOSUB /'•RETURN  DEHO 

20  SCROl_l_ 

30  RRI^^T  "ENTER  R  NUHBER" 

40  INPUT  R 

50  GOSUe  100 

60  GOTO  2© 

90  REH  SUBROUTINE  FOLLOUS 
100  SCROLl- 

110  PRINT  "YOUR  NUHBER  IS 
120  SCROL-t- 

130  PRINT  R;  "  -SOURRED  IS 
140  SCROL.I* 

150  RETURN 

After  line  20  SCROLLS  the  screen,  line  40  asks  you  to 
enter  a  number,  and  then  line  50  transfers  control  to  the 
subroutine  starting  at  line  1®0.  The  required  calculations  are 
carried  out,  and  the  results  of  them  printed,  within  the  sub¬ 
routine;  then  line  150  returns  control  to  the  line  after  the  one 
which  sent  control  to  the  subroutine,  that  is,  line  60.  As  line 
60  is  a  GOTO,  action  goes  back  to  line  20,  where  a  new 
number  is  requested,  and  the  whole  merry  dance  begins 
again. 

Enter  and  run  the  following  program,  which  pits  two  sub¬ 
marines  against  each  other  in  a  race,  to  see  a  subroutine  doing 
something  a  little  more  interesting  than  in  the  preceding 
program. 

The  graphics  characters  used  in  line  20  are  from  the  5  key, 
then  29  spaces,  followed  by  the  graphics  from  the  6  key,  the 
Q,  the  space  (so  you  get  a  solid  square),  and  finally  the 
graphics  from  the  4  key. 
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REH  60SU&  RRCE 
LET 


30  LET  COHRUTERsses 
4.0  LET  HUMRN=28 
50  LET  X=5 
60  GOSUB  10O 
70  LET  X=10 
80  GOSUB  100 
90  GOTO  S© 

100  XF  X=S  THEN  LET 
MPUTER-RND 

110  IF  X=10  THEN  LET 
N-RND 


COHPUTER=CO 

HUMRN=HUHR 


.2:12  IF  X=S  THEN  PRINT  RT  X.COHP 
UTER;R* 

130  IF  X=10  THEN  PRINT  RT  X , HUH 
RN;  R* 

14.0  IF  X=S  RND  COMPUTER  <2  THEN 
PR  INT  RT  0 , 0;  ••  COMPUTER  U  INS  "  ;  O 
150  IF  X=10  RND  HUMRN<2  THEN  PR 
TNT  RT  0/0;  **HUMRN  UINS”;0 
160  RETURN 


There  are  two  “submarines”  on  the  screen.  The  top  one  is 
the  computer’s,  and  the  bottom  one  belongs  to  you.  You  just 
press  RUN,  then  ENTER,  and  the  submarines  move  across 
the  screen  from  right  to  left.  When  one  or  the  other  reaches 
the  side,  the  program  stops,  printing  out  COMPUTER  WINS 
or  HUMAN  WINS,  as  the  case  may  be.  Notice  the  Q  at  the 
ends  of  lines  140  and  150.  The  computer  stops  when  it  reaches 
that  (giving  an  error  code  2),  because  the  Q  is  an  undefined 
variable.  Using  an  undefined  variable  to  stop  a  program  in 
this  way  saves  space.  Without  it,  another  two  lines  of  the 
type  IF  X  =  5  AND  COMPUTER  <  2  THEN  STOP  would  be 
required.  Note  also  that  AS,  the  submarine,  extends  over  more 
than  one  line.  Just  keep  pressing  SPACE  over  and  over  again 
once  you’ve  put  in  the  “periscope”  part  of  the  picture.  Note 
also  that  there  is  a  space  a/ier  the  end  of  the  submarine.  This 
is' vital,  as  you’ll  discover  if  you  leave  it  out. 


CHAPTER  1 1 
DIM  and  arrays 


The  DIM  command  can  be  hard  to  understand,  but  taking  the 
trouble  to  do  so  will  be  well  repaid. 

DIM  tells  the  computer  to  reserve  a  certain  number  of 
spaces  in  its  memory,  to  be  filled  later.  A  DIM  command 
is  followed  by  a  letter  (A  to  Z),  then  a  number  in  parentheses. 
The  number  tells  the  computer  how  many  spaces  to  reserve. 
For  example,  DIM  A(20)  tells  the  computer  to  set  up,  a  series 
of  20  spaces,  which  can  be  used  as  A(l),  A(2),  and  so  on. 
This  list  is  called  an  array,  and  each  part  of  the  array,  the 
A(l),  A(2),  and  so  on,  is  called  an  element  of  the  array. 

Enter  and  run  the  following  program  which  should  make  it 
a  little  easier  to  understand: 


1© 

REM 

DEMO*  » 

20 

DIM  Bt4) 

39 

FOR  Rssl  TO  4 

40 

l_ET  B<.R)=:IMT 

(RND*©)  -1-1 

S© 

NEXT  R 

60 

FOR  R=I  TO  4 

7© 

PRINT  TRB  6; 

••B  ( ft;  ” } 

B  (R) 

S© 

NEXT  ft 

Bd)  IS  6 
IS  6 
Bt-5)  IS  7 
B<4.)  IS  5 

As  you  can  see  from  line  20  of  the  program  you’ve  just  run, 
the  computer  iteeds  you  to  DIMension  an  array  with  a  DIM 
statement  before  you  can  use  it.  The  DIM  statement  is  made 
up  of  a  line  number  followed  by  the  word  DIM,  and  the  name 
of  the  array  in  the  form  of  a  letter,  with  the  size  of  the 
array  enclosed  in  parentheses. 
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The  arrays  we’ve  been  talking  about  so  far  are  one¬ 
dimensional  arrays,  suitable  for  such  things  as  holding  a  list 
of  numbers.  However,  you  can  have  arrays  of  more  than  one 
dimension.  These  arrays  are  called,  reasonably  enough,  mul¬ 
tidimensional  arrays,  and  are  set  up  with  a  DIM  command 
having  more  than  one  subscript.  Enter  and  run  the  following 
program: 

10  REM  HUl_TI-DlHEN-SION«L. 

20  REM  RRRRYS 

30  DIM  Rt4.,4) 

4-0  FOR  B  =  1  TO  4. 

P'QO  f'sl  "rfl  A. 

60  t-ET  RCB,CJ=INT  +1 

T0  PRINT  "R  (  " ;  B ;  "  .  “  :  C ,  “  5  IS  •'  ; 

60  NEXT  C 
90  NEXT  B 

•100  PRINT  RT  6,.  £  3  4-“ 

106  PRINT 

110  FOR  B=sl  TO  4- 

120  PRINT  TRB  13;B;TRB  ISifttB.l 

)  ;  '♦;RtS,2);"  •*;RtB,3):**  “  :  R  tB  , 

4-) 

1-3®  NEXT  S 

When  you  run  it  you’ll  see  something  like  this: 


R  1 1 1) 

IS 

1 

R  (  1 . 2.1 

IS 

9 

R  ?1  ’,3) 

IS 

S 

R  ri 

IS 

9 

R  (2,  IJ 

IS 

8 

R  t2 ,2) 

IS 

7 

R  t2,3J 

IS 

4. 

1 

2 

3 

4- 

R  f2,4.> 

IS 

3 

R  <3, 1.' 

IS 

3 

1 

1 

9 

8 

9 

R  t3,2> 

IS 

4- 

2 

8 

7 

4. 

3 

R  t3,3J 

IS 

6 

3 

3 

4- 

6 

9 

R  f3 ,4.) 

IS 

9 

4. 

8 

2 

a 

7 

R  f4.,  1) 

IS 

S 

R  (4.,2> 

IS 

2 

R  «4.,3) 

IS 

8 

R  t4.  ,4.) 

IS 

7 

First,  the  elements  of  the  array  will  be  filled  with  numbers 
between  1  and  9,  and  these  are  printed  out  by  line  70  so 
you  can  see  what  is  held  by  each  element  of  the  array.  The 
small  table  printed  beside  them  shows  how  the  elements  of 
the  array  are  organized.  Any  element  can  be  accessed  by 
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giving  its  coordinates  within  the  array.  If  this  is  so,  element 
3,3  should  lie  where  the  two  threes  intersect,  i.e.,  on  the 
number  6.  You’ll  see  from  looking  above  in  our  sample  run 
that,  in  fact,  A(3,3)  does  equal  6. 

DIMensioning  an  array  consumes  memory,  so  do  not  set 
up  an  array  larger  than  you  need.  The  number  of  elements  in 
an  array  is  the  fost  numl^r  within  the  parentheses,  multiplied 
by  the  second  numl^r.  Therefore,  the  array  A(4,4)  has  16(4  X 
4)  elements.  You  can  see  from  our  sample  run  that  this  is  so. 

There  is  no  reason  why  you  should  not  have  arrays  with 
more  than  two  dimensions,  except  for  the  fact  that  they  can 
quickly  become  quite  difficult  to  handle,  and  the  number  of 
elements  rockets  quite  alarmingly.  Here  is  a  program  to 
DIMension  and  fill  a  three-dimensional  array.  Although  the 
array  is  only  A(3,3,3),  you  can  see  that  the  number  of 
elements  is  quite  large  (3*3*3). 

1®  REH  HUi_Tl-DIHENSIONRl_ 
a®  REH  RRRRYS 

30  DIH  RC3,3,3) 

40  FOR  S=1  TO  3 
50  FOR  0=1  TO  3 
60  FOR  Dal  TO  3 

70  LET  fttB,C,DJ=lNT  +1 

75  SCROLL 

80  PRINT  ’’R  C**i  8i  C;  “  .  ”  ;  D: 

0©  PRINT  "  J  IS  “  ;  R  (5  ,  C  ,  D:i 


108  NEXT 

D 

110  NEXT 

C 

130  NEXT 

B 

R£l,a,3) 

IS 

5 

Rtl,3, 1) 

IS 

7 

R  Cl, 3, a) 

IS 

7 

RC1,3,3) 

IS 

6 

R  ca,  1, 1> 

IS 

3 

R  ta,  1,3) 

IS 

0 

R  ca,  1,3) 

IS 

8 

RC2,a,  1) 

IS 

5 

R(3,3,3) 

IS 

3 

RC3,a,3) 

IS 

3 

R  13,3,  1) 

IS 

5 

R<a,3,a) 

IS 

7 

R  C3,3,3> 

IS 

8 

R  C3, 1, 1) 

IS 

0 

R  t3,  i,a> 

IS 

3 

RC3, 1,3) 

IS 

3 

fl(3,2,l) 

IS 

5 

R  C3,3,3) 

IS 

6 
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IS  5 
IS  S 

ft€S,S,2)  IS  4. 

IS  2 

Increase  the  number  of  dimensions  to  five,  as  in  our  next 
example,  and  although  it  is  only  A(2,2,2,2,2),  there  are  now 
32  (2*2*2*2*2)  elements. 

10  REM  MUL-T I -D  XMEMS  JOl'mi. 
a©  REM  .qROfiVs 

30  OIM 

4.0  FOR  Bs=l  TO  2 

50  FOR  C=1  TO  2 

5©  FOR  D=1  TO  a 

70  FOR  E=1  TO  a 

S©  FOR  F=1  TO  a 

9©  l_ET  R  te,C,D,E,F)  =rXr«IT  IRND^S 
J  't*  1 

100  SCROLI- 

110  PRINT  "R  B;  ;  c;  ;  D;  *•  , 

...... 

ia©  PRINT  “)  IS  ••;R(B^C„D,E,FJ 

130  NEXT  F 

14.0  NEXT  E 

150  NEXT  D 

160  NEXT  C 

170  NEXT  B 


R  fl,2, 1,2,1) 
R (1,2, 1,2,2) 
R(l,2,2,l,l) 
R (1,2,2 , 1,2) 
R (1,2, 2, 2, 1) 
R  Cl, 2, 2, 2, 2) 
«  C2,  1, 1, 1, 1) 
R (2, 1, 1, 1,2) 
R  (2,  1 , 1,2 , 1) 
R (2, 1 , 1 ,2 ,2) 
R (2, 1,2, 1, 1) 
R (2, 1,2, 1 ,2) 
R  C2, 1,2,2, 13 
Rt2, 1,2,2,23 
R  (2,2, 1, 1,.  1) 
R  (2,2, 1, 1,2) 
R  (2,2, 1,2,1) 
fl (2,2, 1,2,2) 
R (2,2,2, 1 , 1) 
fl (2,2,2, 1,2) 
fl (2, 2, 2, 2, 1) 
ft  <2,2,2,2,23 


IS  6 
IS  © 
IS  5 
IS  5 
IS  9 
IS  9 
IS  9 
IS  9 
IS  2 
IS  3 
IS  1 
IS  6 
IS  8 
IS  9 
IS  4. 
IS  7 
IS  2 
IS  2 
IS  9 
IS  9 
IS  9 
IS  4- 


Here  is  the  game  CODE-BREAKER  to  show  single- 
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dimensional  arrays  in  use.  The  game  is  simple  to  play.  The 
computer  “thinks  of’  a  four-digit  number,  and  you  have  ten 
guesses  to  work  it  out.  A  correct  digit  in  the  wrong  position 
within  the  code  gives  you  a  “white,”  while  a  correct  digit  in 
the  correct  position  gives  you  a  “black.” 


10  Reii  CODE -BREAKER 

30  OIH  Ct4.> 

30  DIH  St4.> 

40  PRINT  “I  RH  THINKING  OF  R  4 

-DIGIT” 

5©  PRINT  "NUHBER,  UHICH  YOU  HR 
UE  10  GOES” 

60  PRINT  “TO  DISCOUER.  RL.t_  4 
DIGITS  RRE" 

70  PRINT  “DIFFEREbfF.  PRESS  RNY 
KEY" 

S0  PRINT  TRB  IS; ”TO  BEGIN” 

90  PRUSE  4E4 
100  CL.S 

110  LET  CC1)=INT  CRND»9> -i-1 

IS©  FOR  Z=a  TO  4 

130  LET  CCZ)=INT  (RND*9) 

140  FOR  U=5l  TO  Z-1 

150  IF  CC-J)stC<Z>  THEN  GOTO  130 

160  NEXT  U 

170  NEXT  Z 

180  FOR  G=1  TO  10 

190KCROLL 

200  PRINT  TRB  ENTER  GUESS 

* 

ai0  XNPiir  R  , 

aa©  LET  R1=R 

330  FOR  Zssl  TO  4 

340  LET  G  f.Z)  =R~10«INT  tR^l©) 

250  LET  ft«INT  CR^'lOi 

as©  NEXT  Z 

370  LET  B=0 

as©  LET  U=t© 

aS0  FOR  Z2=i  TO  4 

300  IF  C  CZJ  <>G  CZJ  THEN  GOTO  330 

310  LET  BaB+1 

330  LET  G  <Z)  =0 

330  NEXT  Z 

340  FOR  Zal  TO  4 

350  IF  G  <Z) =©  THEN  GOTO  40© 

360  FOR  0=1  TO  4 

HS  THEN  GOTO  39© 

380  LET  U=U4l 

390  NEXT  U 
400flNEXT  Z 
410  SCROLL 
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4.20  PRINT  ftl;  *•  SCORED  ” ;  CNR*  CB 
+15&)  J  "  BCfiCK**; 

430  IF  Bol  THEN  PRINT  "S*’; 

440  PRINT  •*,  "iU;"  WHITE”; 

450  IF  W<M  THEN  PRINT  ”S" 

4&0  SCROL.L. 

470  IF  Bk4  THEN  PRINT  “YOU  SUES 
SED  IT  IN  ”;G;‘*  GUESSES” 

4S0  IF  B<>4  THEN  NEXT  G 
400  SCROL.4_ 

500  PRINT  TRB  5; "THE  CODE  URS  ” 
;  C  (4)  ;  C  (3>  ;  C  iBi  ;  C  <15 


String  arrays 


You  can  also  use  string  arrays,  which  are  very  similar  to 
numeric  arrays.  Enter  and  run  the  following  program  to  see 
the  string  array  in  practice,  typing  in  four  words  (each  fol¬ 
lowed  by  ENTER)  when  prompted. 

i0  REH  STRING  RRRRYS 
20  DIM  R*(4,3.0J 
30  FOR  B=1  TO  4 
4-0  INPUT  R*{B) 

5©  NEXT  B 
60  FOR  B=1  TO  4 
70  PRINT  IS 

30  NE.XT  e 

Ritl)  IS  WfiTER 
IS  RERSOM 
R$f.3}  IS  URSTE 
R»(4)  IS  RHGL.OPHILE 

Although  the  second  number  in  the  DIM  statement  (in  this 
case  10)  has  to  be  as  long  as  the  longest  string  you  intend  to 
enter,  you  only  need  to  specify  the  first  element  (as  in  line  70) 
to  get  the  full  string  to  print  out. 

Note  that  the  main  difference  between  a  string  array  and  a 
numeric  array  is  the  dollar  sign  immediately  following  the 
letter.  This  tells  the  computer  that  the  name  refers  to  a  string. 

Here’s  a  string  sort  program  to  show  string  arrays  in  use. 
As  set  up,  and  as  demonstrated  in  the  sample  run,  the  pro¬ 
gram  caters  for  five  words.  To  adapt  it  for  more,  change  the 
5  in  lines  20,  30,  and  40  to  the  number  of  words  ybu  need  to 
sort. 
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3.0  REH  » ♦STRING  SORT** 

20  DIH  U*(S.3.©) 

30  L.ET  8=0 
4.0  t-ET  G=S 
58  FOR  R  =  3.  TO  S 
60  INPUT  U«CR> 

70  PRINT  U«  CRi 
68  NEXT  R 
65  PRINT 
98  l-ET  Z  =  1 
X00  LET  B=Z+1 
11©  IF  B>G  THEN  GOTO  19© 
la©  IF  U$CB>  >U$CZ)  THEN  GOTO  15 

0 

130  l_ET  Z=Z*i 
14-0  GOTO  10© 

IS©  LET  0!£s:U$  CZ) 

16©  LET  U$(Z}=U$(8) 

170  LET  U*  CB>  *Oii 
160  GOTO  130 
190  PRINT  U$  (G) 

200  LET  G=:G-1 

210  IF  G>©  THEN  GOTO  90 

LRTCH 

BRERTH 

BRERD 

DRRIN 

DRRGON 

BRERD 

BRERTH 

DRRGON 

DRRIN 

LRTCH 


String  handling 

Our  discussion  of  string  arrays  leads  us  neatly  into  strings 
and  string  handling.  As  you’ve  probably  realiz^  by  now,  a 
string  is  a  collection  of  alphanumeric  characters  within  quotadcxi 
marks  (including  symbols  and  spaces,  if  desired).  It  is  as¬ 
signed  to  a  variable  whose  name  is  a  letter,  followed  by  a 
dollar  sign.  Strings  are  assigned  in  much  the  same  way  as  are 
numeric  variables,  by  a  statement  of  the  form  LET  AS== 
“HI”. 

We  must  look  at  the  T/S  1000  character  set  before  continuing 
our  discussion  of  string  handling.  The  computer  assigns  a 
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unique  number  between  0  and  255  to  everything  the  computer 
must  print,  from  numbers,  letters,  and  keywords,  to  symbols 
and  operators.  Fot  example,  the  character  of  the  letter  A  is 
38.  This  means  that  if  you  told  the  computer  to  PRINT  CHRS 
38  (and  you’d  do  this  by  getting  CHRS  from  the  U  key,  in 
the  function  mode),  it  would  print  the  letter  A. 

You  can  see  the  full  character  set  from  0  (the  number  for 
the  space  character)  to  255  (which  is  the  word  COPY)  by 
running  the  next  program.  Because  the  numbers  from  67  to 
126  are  not  used,  or  just  print  out  as  question  marks,  the 
program  jumps  over  them. 

10  REH  CHRRRCTER  SET 
Sa  FOR  R=a  TO  OSS 
30  SCROI_t_ 

4.0  SCROLL 

5©  PRINT  R;  •'  “JCHRS  iR> 

S©  XF  R=6S  THEN  LET  RarlST 
TO  NEXT  R 

There  are  a  number  of  very  useful  string  functions,  which 
can  be  used  for  manipulation  of  strings  and  for  extracting 
parts  of  the  strings.  The  functions  are: 

CODE  XS  This  gives  the  character  code  of  the  first  charac¬ 
ter  in  XS,  so  if  XS  equaled  MICRO,  CODE  XS  would 
give  50. 

CHRS  66  We  can  check  to  see  if,  in  fact,  50  is  the  code  of 
the  first  letter  of  XS  (i.e.,  if  it  is  the  code  of  M)  by 
asking  the  computer  to  PRINT  CHRS  66.  This  gives  an 
M.  In  effect,  CHRS  is  the  opposite  of  CODE,  and  turns 
a  code  back  into  a  character. 

XS  (TO  3)  This  gives  a  string  containing  the  n  leftmost 
characters  of  XS,  so  XS  (TO  3)  will  give  ‘  ‘MIC’  ’ . 

LEN  XS  This  function  gives  the  length  of  a  string;  therefore, 
using  our  string,  XS,  of  “MICRO”,  we  get  LEN  XS  of 
0.5. 

XS  (n  to  m)  This  string  function  produces  a  string  from  XS 
which  lies  between  characters  n  and  m,  starting  from 
character  n.  XS  (2  TO  4)  gives  “ICR”. 

XS  (n  TO)  This  function  gives  the  rightmost  characters 
from  n  of  the  string,  so  XS  (2  TO),  if  XS  was  MICRO, 
would  give  “ICRO”. 
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STRS  A  This  turns  a  variable  A  into  a  string,  so  if  the 
variable  was  234,  the  string  version  would  be  “234”. 
This  may  not  seem  to  be  much  use  but  allows  certain 
manipulation  of  numbers  when  they  are  strings  which  would 
be  extremely  difficult  in  their  numeric  form.  We  will 
look  at  STRS  in  more  detail  shortly. 

VAL  X8  This  is  the  “opjwsite”  of  STRS  A  and  takes  the 
numeric  value  of  the  string  and  turns  it  into  a  number. 
Thus  VAL  XS,  where  XS  equals  “22  +  34”,  would  return 
56. 

Here  is  a  printout  from  the  computer  showing  the  string 
functions  in  operation. 


3.0 

S0 

30 

4>0 

S0 

60 

70 

30 

4.) 

00 

100 

110 

1S0 

130 

1A0 

1S0 

160 


f  <  9  1  «  1 


PRINT  "L-ET  .X*  =  **  “MICRO 
l_ET  X»  =  "MICRO** 

PRINT  “CODE  X4l='’;COOE  X$ 
PRINT  “CHR!!  5©s=";CHR^  5© 
PRINT  TO)r:*‘^X4t3  TO  J 

PRINT  “X*<  TO  3)=’‘;X*t  TO  3 

PRINT  "U.EN  X*  =  "iL.EN  X$ 

PRINT  "X^Ca  TO  4.)=j“;X$ta  TO 

PRINT  "LET  X*ss""a3+35'’ ”  *• 

LET  X*=s**S34.35** 

PRINT  "ORL  X$s";URL  X$ 

PRINT  "LET  Xa34." 

LET  X=34. 

PRINT  "LET  X^-STR$  X” 

LET  X*=STR$  X 
PRINT  "Xf=";X$ 


LET  X*s:"MICRO" 
CODE  X«3s50 
CHR«  S0-M 
X*t3  TO) =CRO 
X*  (  TO  3)  =sHIC 
LEN  X*«S 
XSCa  TO  4.)  a  ICR 
LET  X5:s"a3+3S** 
URL  X*:=58 
LET  X=34^ 

LET  X<*STR*  X 
XU -34- 
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PRiNTing  string  arrays 


Suppose  you  wanted  a  character  array  to  hold  the  names  of 
the  months.  There  are  12  months  in  one  year,  and  the 
name  of  the  longest  mcaith  is  SEPTEMBER,  which  consists 
of  nine  letters.  On  your  computer  you  would  say 

10  DXH 

to  give  you  an  array  of  12  words  each  up  to  nine  letters 
long.  You  would  probably  end  up  doing  this: 

SSRPOR  N=1  TO  IS 
30  INPUT  t'N.> 

4.0  NE.XT  N 

and  the  variables  could  be  saved  on  tape  along  with  the 
program  once  you’ve  entered  all  the  data  into  the  array. 
When  you  came  to  use  the  array,  you  would  find  that  names 
which  were  less  than  nine  letters  long  had  been  stretched  out 
with  spaces  at  the  end  to  make  them  nine  letters  long  to  fit  the 
array.  So  if  you  had  the  line 


S0©  PRINT  IS  THE  MONTH  OF 

YOUR  BXRTHDRY" 

you  would  end  up  with  MAY  IS  THE  MONTH  OF 
YOUR  BIRTHDAY.  All  those  extra  spaces  are  ugly.  It  might 
not  bother  you  with  a  word  like  DECEMBER,  where  you 
would  get  only  one  extra  space,  but  with  the  word  MAY  you 
get  six  extra  unwanted  spaces,  so  we  need  to  ensure  that  any 
trailing  spaces  (spaces  after  the  word)  are  not  PRlNTed.  Here 
is  a  routine  to  do  this. 

You  will  need  to  specify  which  part  of  the  array  is  used— 
which  word  if  you  like — and  this  is  represented  by  an  X  in 
the  listing.  Add  these  lines  to  the  ones  above: 


4-90  INPUT  X 

S00  GOSUB  6000  ..  __ 

S10  PRINT  Rl^(X>  TO  fiJ  ;  "  IS  THE 
MONTH  OF  YOUR  BIRTHDRY" 

SS0  SXOP 

8000  for  RkLEN  RSKXJ  to  1  STEP  ~ 
6010  IF  R$<X..R><>'‘  '*  THEN  RETURN 


6090  NEXT  fi 
3030  RETURN 
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RUN  the  program  and  enter  the  names  of  the  months  one 
by  one  in  order.  As  an  experiment,  try  leaving  one  month  as 
all  spaces  (just  press  ENTER  for  one  name).  You  might 
expect  an  error  to  arise  if  AS(X)  is  composed  entirely  of 
spaces,  but  this  is  all  catered  for.  If  this  does  happen,  then  A 
will  be  0  and  AS(X,  TO  A)  will  be  AS(X,  1  TO  0).  You  might 
expect  that  this  will  give  a  subscript  error,  but  the  computer, 
as  we’ve  seen,  has  a  special  interpretation  for  this  kind  of 
expression  (where  the  first  figure  in  a  string  slice  is  larger 
than  the  second).  You  will  end  up  with  the  empty  string,  so  it 
will  seem  as  though  you  don’t  have  a  birthday! 

One  small  note.  Look  at  line  510.  It  appears  as  though 
there’s  a  number  missing  before  TO.  This  is  the  same  as 
AS(X,1  TO  A)  because  if  you  leave  out  the  number  before 
TO,  the  computer  will  assume  you  meant  1.  Don’t  forget  to 
include  the  comma  before  TO. 

Having  RUN  the  program  once,  you  should  have  all  the 
names  of  the  months  in  memory.  When  you  want  to  use  the 
program,  use  GOTO  490  to  save  having  to  retype  the  names 
of  the  months  every  time. 


Using  STRS 


STRS  is  a  very  useful  and  often  neglected  function.  As  we 
mentioned  a  few  pages  ago,  it  converts  a  number  into  its 
string  equivalent,  ar  it  would  appear  when  PRINTed  on  the 
screen.  Try  this  program: 

10  PRINT  2 
20  PRINT  STR$  2 
30  PRINT 

4-0  PRINT  STR$  (1/3} 

50  PRINT  9E15 
60  PRINT  STR$  3E15 

You  should  get  these  results: 


s 

'2 

0.33333333 
0 . 33333333 
9E+1S 
QE  +  15 
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We  can  leam  a  lot  from  these  examples.  First,  the  string 
generated  by  STRS  is  the  same  as  you  would  get  if  you 
PRINTed  the  number  on  the  screen.  Second,  numbers  of  less 
than  1  are  assigned  to  a  string  with  a  0  before  the  decimal 
point,  providing  the  first  digit  after  the  decimal  point  is 
anything  but  0  (i.e. ,  the  number  is  equal  to  or  greater  than  0. 1 
and  less  than  1),  and  there  may  be  up  to  eight  digits  after  the 
decimal  point,  although  there  may  be  less  if  all  are  not 
required.  So  there  may  be  up  to  ten  characters  in  the  entire 
string.  However,  if  the  number  to  which  STRS  is  applied  has 
more  than  eight  digits  after  the  decimal  point,  it  is  rounded  off 
to  eight  decimal  places,  e.g.,  STRS  .333333339  becomes 
0,33333334.  STRS  is  also  capable  of  generating  scientific 
notation  (which  you’ll  recall,  we  discussed  earlier)  such  as 
9E+  15.  Note  that  although  the  computer  ^cepts  9E15,  STRS 
assigns  it  as  9E+ 15,  that  is,  the  exponent  part  is  always  signed. 
Very  small  numbers,  e.g.,  0.000009  are  assigned  thus:  STRS 
0.0000009  is  9E-7.  When  using  STRS,  it  is  often  wise  to 
limit  the  values  of  the  number  so  that  STRS  does  not  begin 
to  use  scientific  notation,  which  will  cause  problems. 

You  are  by  now  almost  certainly  thinking,  fine,  but  what 
can  you  do  with  it?  The  main  use  is  to  convert  numbers  to 
strings  so  that  we  can  apply  the  computer’s  string  handling 
facilities  for  formatting  or  rounding  off  to  a  given  number  of 
decimal  places  or  other  purposes  where  you  need  to  be  able  to 
assess  a  number  digit  by  digit.  Here  are  some  examples  of  the 
application  of  STRS. 

Suppose  you  had  a  list  of  numbers  to  print  and  you  wanted 
to  line  up  decimal  points.  Try  this  program: 

1©  LET 
2©  PRINT  R 
S©  LET 
4-©  GOTO  a© 

You  should  get  something  like  this: 

8.53154-3 
85.8154-3 
858 . 154-3 

8581.54-3  i07-2 

It  would  belnuch  more  legible  and  readable  if  we  could 

i 
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line  up  the  decimal  points,  and  this  is  often  very  useful.  Try 
this  routine; 

10  LET  »~RND«100 

S0  PRINT  TRB  IS-LEN  STR»  INT  R 

;  fi 

30  LET  RwR*10 
4.0  GOTO  30 

This  spaces  everything  out  so  that  the  decimal  points  ap¬ 
pear  beneath  each  other.  It’s  very  useful  for  a  chart  or  list  of 
numbers  where  you  may  wish  to  quickly  compare  several 
numbere.  Can  you  see  how  the  program  works?  Suppose  the 
value  of  A  was  69.433594.  What  the  program  does  is  take  the 
integer  part  of  A  (INT  A,  which  is  69),  converts  this  to  a 
string  (STR8  INT  A),  then  measures  the  length  of  this  string 
(LEN  STRS  INT  A)  which  in  this  case  is  2.  It  then  uses  the 
number  to  work  out  how  far  back  across  the  screen  to  start 
PRINTing  the  value  of  A.  Note  how  this  is  done: 

TRB  IIS -LEN  STRt  INT  R 

This  means  that  15  is  how  far  across  the  screen  the  decimal 
point  is  placed,  and  then  it  counts  back  by  the  number  of 
digits  in  STRS  INT  A. 

Another  application  of  STR8  is  if  you  needed  to  PRINT  to  a 
given  number  of  decimal  places.  You  will  remember  that  the 
above  example  printed  numbers  with  all  the  digits  known. 
We  can  use  STR8  to  regulate  how  many  numbers  are  PRINTed 
after  the  decimal  point.  Consider  this  routine: 

10  LET  R=RND*1©@ 

S0  LET  ft 

33  IP  THEN  LET  = 

as  LET  B=LEN  STR$  INT  URL 

•37  PRINT  TRB  15-B..  "  RND 

B*LEN  +••©©©"?  C  TO  B.i-4-) 

3®  LET 
4-0  GOTO  3© 

This  will  PRINT  to  three  decimal  places,  adding  both 
leading  zeros  (0  at  beginning)  and  trailing  zeros  (0  at  end)  if 
required.  To  get  it  to  PRINT  to  Z  decimal  places,  make  the 
following  changes  to  line  27:  add  as  many  spaces  to  AS  as  the 
number  of  decimal  places  you  require  (i.e.,  Z  zeros),  and  you 
should  make  the  sheer  statement  (TO  B  +  1  +  Z). 
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Here  is  a  line  by  line  explanation: 

Line  10  sets  the  value  of  A  to  start  off  with. 

Line  20  converts  A  to  a  string. 

Line  22  adds  a  0  before  the  first  digit  if  it  is  a  decimal 
point.  Unfortunately,  the  STRS  function  is  not  uniform  in 
its  action  in  that  it  sometimes  supplies  a  leading  0  for 
numbers  less  than  1  and  sometimes  doesn’t,  depending  on 
whether  the  first  digit  after  the  decimal  point  is  0.  There¬ 
fore,  it  is  a  simple  matter  to  check  if  a  0  is  required  or 
not — ^if  the  first  character  is  a  decimal  point,  add  a  0. 

Line  25  sets  B  equal  to  the  integer  part  of  the  number 
represented  by  AS. 

Line  27  spaces  the  PRINT  position,  then  sets  about  PRINTing 
AS  to  three  decimal  places.  First  of  all,  AS  is  PRINTed 
complete,  then  a  decimal  point  is  added  if  AS  already 
represents  a  whole  number  and  enough  zeros  to  make  up 
three  decimal  places.  You  may  be  wondering  why  you 
should  add  4  to  B — surely  we’re  PRINTing  to  three  deci¬ 
mal  places?  Remember  the  decimal  point — that’s  an  extra 
character!  For  the  purpose  of  the  slicing  statement,  the  part 
before  is  treated  as  one  long  string,  provided  it  is  all  in 
parentheses.  All  we’ve  done  is  add  characters  to  pad  out 
AS  to  at  least  three  decimal  places,  then  PRINT  up  to  three 
digits  after  the  decimal  point.  This  routine  does  not  round 
off  the  third  decimal  place.  There  is  a  routine  in  the 
SNIPPETS  section  to  do  that. 

Another  function  of  strings  is  to  save  memory.  It  is  often 
possible  to  save  memory  by  using  strings  to  hold  numbers, 
instead  of  numeric  variables,  and  decode  them  later  using 
VAL.  You  can  store  a  number  in  a  string  variable  using  STRS: 

L.ET  ■r«=stp* 

and  decode  it  later  as  required  using  VAL: 

PRXWT  t/RL. 

♦ 

You  will  often  find  that  you  use  up  more  memory  in 
converting  numbers  in  this  fashion  than  you  would  in  using 
proper  numeric  variables,  but  sometimes  this  method  can 
work  wonders! 

Try  applying  VAL  to  an  expression  like  “ATN  1  x4”.  It 
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works,  and  this  is  often  quite  a  useful  facility.  You  can  have 
the  name  of  a  numeric  variable  in  quotes,  and,  provided  it  has 
previously  been  defined  or  assigned,  it  will  be  successfully 
evaluated. 

It  may  also  be  usefiil  if  you  wish  to  generate  random 
numbers  several  times  in  a  program.  At  the  start  of  the 
program  have  a  statement  line  LET  AS  =  “RND*6’  ’ ,  and  every 
time  you  wanted  a  random  number  you  would  type  LET 
R  =  VAL  AS. 


INKEYS 


You  do  not  need  to  press  ENTER  after  pressing  a  key 
when  INKEYS  is  used,  as  our  next  program  makes  clear. 

Try  the  following.  Enter  a  number  from  1  to  9,  by 
pressing  the  key  of  that  number,  and  you’ll  see  it  print  out 
YOU  PRESSED  6,  YOU  PRESSED  1,  and  so  on.  Touch  the 
zero  key  to  end,  and  it  will  print  out  YOU  PRESSED  0  and 
then  stop. 

1©  REM  **  INKEY $  DEMO  ** 

S©  IP  INKEY*  <>•*••  THEN  GOTO  2© 

30  IP  INKEY  *=•••*  THEN  GOTO  '3© 

3S  LET  ft^-XNK.EY* 

4.©  PRINT  '‘YOU  PRESSED 
5©  IP  THEN  STOP 

6©  GOTO  20 

YOU  PRESSED  3. 

YOU  PRESSED  6 
YOU  PRESSED  3 
YOU  PRESSED  5 
YOU  PRESSED  2 
YOU  PRESSED  4- 
YQU  PRESSED  3 
YOU  PRESSED  B 
YOU  PRESSED  4- 
YOU  PRESSED  © 

The  next  program — ^PREDICTION — ^also  uses  INKEYS.  In 
this  game,  you  have  to  try  and  anticipate  the  number  (from 
1  to  9)  that  the  computer  will  select.  The  computer’s 
number  is  shown  on  the  screen  near  the  middle,  and  the 
lowest  number  is  the  score.  The  lower  the  score  at  the  end 
(when  you  manage  to  successfully  predict  the  computer’s 
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number),  the  better.  The  screen  will  stay  blank  until  you 
press  a  key.  The  words  “THE  SCORE  IS”  will  flash  off  and 
on  at  the  end.  You  can  see  how  line  130  does  this.  Note  also 
lines  50  and  60  which  wait  (50)  till  no  key  is  being  pressed, 
and,  once  the  keyboard  is  clear,  waits  (60)  for  a  key  to  be 
pressed. 

YOUR  NUMBER  IS  9 


MY  NUMBER  IS  9 

HPSHBBBgHSBas 


10  REM  »*PREDICTION" 

20  l_ET  EssS 
4>0  l_ET  ©ss© 

50  IF  INKEY *<>••••  THEN  GOTO  5© 
80  IF  INKeV’*  =  *’“  THEN  GOTO  6© 

70  LET  ft!fc«INKeY$ 

80  PRINT  RT  8^5; "YOUR  NUMBER  X 


S  "iR* 

90  L.ET  0=0  +  1 
110  LET  U!^=STR*  (INT 
laO  PRINT  RT  12,E;"NY 


fRND+9) +1J 
NUMBER  IS 


»*  :  U* 

130  PRINT  IS 

li©'  IF  U*=R*  WeNG^^^^^© 

150  GOTO  50 


The  next  program— MAZE  MAKER— also  shows  INKEYS 
in  action.  Using  the  A,  Z,  K,  and  M  keys,  you  have  to 
move  the  S  sign  from  the  bottom  left-hand  comer  to  the 
top  right-hand  one,  without  crossing  any  of  the  little  white 
squares.  Note  that  no  path  through  is  guaranteed,  and  there  is 
no  mechanism  for  checking  that  you  don’t  cheat.  At  the  end, 
the  number  of  “moves”  you  took  is  printed  on  the  board. 


10  REM  ++MRZE  MRKER  +  + 

a®  REM  USE  THE  R  Z  M  K  KEYS 

30  REM  TO  MOVE  THE  $  SIGN 

4-0  REM  FROM  THE  BOTTOM 

50  REM  LEFT-HRND  CORNER  TO  THE 

60  REM  TOP  RIGHT.  NO  PRTH  THRU 
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7®  REH  XS  GURRSMTEEIX 
SO  LET  3*0 
90  FOR  Y=tl  TO  700 
X00  LET  TssINTT  fRNO»'3^ 

110  PRINT  C**B"  RND  T*0)+C”  **  RN 
D  T>0>  ; 

ISO  NEXT  Y 

130  PRINT  RT  0;,0i“  “JRT  1,0:-" 


l<t0  LET  X*30 
14.5  LET  Y*10 
150  LET  H«X 
160  LET  N*Y 
170  PRINT  RT  Y,X; 
180  LET  5*3+1 


190  LET  R$*INKEyt 

SOeHlF  ftSL*"”  THEfrL  GOTO  130 
ai0  IF  R*="R”  RNO  Y>0  THEN  LET 
Y=Y--1 

SS0  IF  RSr="Z"  RND  Y  <S0  THEN  LET 
Y  «Y  +1 


330  IF  Rlfe*“K"  RNO  X<31^THEN  LET 
X*X+1 

^240^ IF  RND  X>0  THEN  LET 

25©  IF  X*0  RND  Y*©  THEN  GOTO  28 

0 


260  PRINT  RfT  N>H:"  " 

270  GOTO  150 
230  SCROLL 

290  PRINT  "YOU  MRDE  IT" 

•'TLf'om  I 

310  PRINT  "IT  TOOK  YOU  "IS,"  HO 
UES" 

320  GOTO  280 


Note  in  line  110  how  use  is  made  of  the  computer’s  logic 
methods  of  evaluation.  This  line  ensures  that  if  T  (generated 
in  the  previous  line)  is  0,  a  black  square  is  printed,  and  a 
blank  space  is  generated  if  T  is  greater  than  0.  This  is  a 
memory-efficient  way  of  emulating  the  IF/THEN/ELSE  com¬ 
mand  available  on  some  other  computers.  This  technique,  and 
similar  ones,  are  discussed  in  greater  detail  elsewhere  in  the 
book. 

Because  it  can  take  quite  a  long  time  for  the  maze  to  be 
drawn,  you  may  prefer  to  set  up  the  maze  in  the  FAST 
mode,  and  then  display  it  for  you  to  solve  in  SLOW.  You 
can  do  this  by  adding  15  FAST  and  125  SLOW. 

The  next  program — ^ROAD  RUNNER — shows  INKEYS  in 
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action  again.  In  this  program  you  are  attempting  to  drive  a 
long  line  of  letter  V’s  down  a  twisting,  turning  track  of  black 
blobs.  Your  controls  are  Z  and  M  which  move  you  left 
and  right  respectively. 

Lines  55  and  60  move  the  track  randomly,  making  sure  that 
it  does  not  stray  off  the  edge  of  the  screen.  Line  70  prints  the 
V,  which  is  scrolled  up  (as  is  the  track)  by  line  80.  Line  100 
checks  the  status  of  the  position  that  V  will  next  occupy,  and 
if  it  finds  a  128  there  (character  128  is  the  blob)  sends  action 
to  line  140. 


i0  Ret4  RORO  RUNNER 
20  LET  T=:0 
30  LET  R=i0 
4-0  LET  X  =  13 
S0  LET  Y=12 
55  LET  KaINT  tRND-sei 
60  LET  Rafl-tKssl  RND  fl>i)+tKa0 
RND  R<24.)  _  - 

70  PRINT  RT  Y,X-l;**U” 

S0  SCROL*L  HIM.. 

90  PRINT  TRB  R ;  "■** ;  TRB  R+5;  “■ 

J.00  IF^^EK^  16 

399 ♦256)  ai28  THEN  GOTt)  14^0 
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110  t_ET  X=X- CXHKev$**'Z"  1RH£>  X>a 
)+ CINKE'/ *  =  ••«*•  RND  X<32J 
120  LET  T=T+1 
130  GOTO  SS 

14.0  PR  I^rr  RT  Y  .  X  - 1 ;  ”  U  “ 

150  PRXMT  RT 


160  PRINT  RT  6,10;  “YOU  SCO.PEO  ** 

170  PRINT  RT  6,6. “YOU  HRUE  CRRS 
HED” 

160  GOTO  15® 


If  you  want  a  time  limit  oh  user  responses,  you  can  use  the 
following  method.  Suppose  the  user  has  only  a  short  time, 
say  two  seconds,  in  which  to  decide  whether  or  not  to  have 
another  game.  If  he  or  she  is  too  slow  in  deciding,  then  the 
program  stops. 

For  the  purpose  of  this  routine,  suppose  the  user  has  to 
press  R  for  a  rerun: 

1©  FOR  F=1  TO  55 
20  LET  R*= INKEY $ 

3©  IF  R$  =  ”R*‘  THEN  GOTO  5©  < 

4-0  NEXT  F, 

5©  STOP 

6©  PRINT  "RE-RUN’* 

7©  RUN 

In  view  of  a  previous  paragraph,  you  may  have  expected 
to  have  a  loop  of  120  in  line  10,  but  having  anything 
inside  the  FOR/NEXT  loop  slows  it  down,  and  55  is  adequate 
in  this  case. 

Alternatively,  you  can  make  use  of  the  frame  counter, 
part  of  the  T/S  lOOO’s  inner  workings  which  counts  how  many 
television  frames  have  been  generated  since  the  computer  was 
turned  on.  To  use  the  frame  counter,  you  need  to  reset  it 
to  0,  which  you  can  do  with  the  following  (and  note  that 
we  discuss  PEEK  and  POKE  in  detail  a  little  later  in  the 
book): 

POKE  164-37 , 255 
POKE  164-36 , 255 


To  see  its  value  (to  know  how  much  time  has  elapsed)  at  any 
time  later  on  during  the  program,  use: 


L.ET  T=  CB5536-PEEK 
I^PEEK  164-37 >  .-^5© 


164-36-256 
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Here’s  an  example.  Lines  10  and  20  set  the  timer  to  0,  and 
lines  30  and  40  wait  for  you  to  press  any  key  (except  SHIFT 
or  BREAK).  When  you  do  touch  a  key,  line  50  prints  out  the 
time  (in  seconds)  which  has  elapsed  since  you  started  the 
progr^  running.  It  is  not  totally  accurate,  as  the  computer 
takes  a  fraction  of  a  second  to  work  out  the  expression,  and  a 
little  longer  to  print  out  the  result,  but  it  is  close  enough  for 
most  purposes.  (Keep  in  mind  that  the  PAUSE  command  uses 
the  frame  counter,  so  you  can’t  use  PAUSE  in  a  program 
where  you’re  using  this  timer.) 

1©  POKE  164-37  ..355 
a©  POKE  164.36  ..355 

3©  XF  INKEY$<>*'”  THEN  GOTO  3© 
4.0  XF  XNKE'Y'fr="'^  THEN  GOTO  4-0 
5©  LET  T=t 65536 -PEEK  164-36-356 
*PEEK  164.371  ^5© 

60  PRINT  RT  4...  4..:T 
70  GOTO  3© 


CHAPTER  12 
Displays 


There  is  a  useful  subroutine  that  enables  you  to  clear  any 
number  of  lines  from  the  bottom  of  the  screen.  It  enables  the 
instructions  to  be  kept  on  the  top  few  lines  of  the  display 
during  the  game,  or  the  score  or  any  other  special  instructions 
may  be  kept  on  screen  while  everting  else  is  cleared.  The 
subroutine  should  be  called  by  GOSUB  8000. 

X0  FOR  1*1  TO  4.16 
S0  PRINT 
30  NEXT  1 


8000  PRINT  RT  21, ©i 
ES  TO  BE  CLERRED*?” 
9010  INPUT  C 


"HOW  HRNY  L.IN 


8020  IF  C<0  OR  C>21  THEN  GOTO  6© 
10 


8030  FOR  F*21  TO  21-C  STEP 
804.0  PRINT  RT  F,0;  •’ 


8050  NEXT  F 

8060  PRINT  RT  F+1.0; 

8070  RETURN 


Line  8000  asks  how  many  lines  you  want  to  clear,  starting 
from  line  21  at  the  bottom  of  the  screen  and  working  upward. 
It  looks  quite  impressive!  The  INPUT  statement  in  line  8010  is 
not  idiot-proofed;  you  may  want  to  experiment  with  this 
yourself.  The  statement  in  line  8060  moves  the  PRINT 
position  to  the  start  of  the  part  of  the  screen  you’ve  just 
cleared. 
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Screen  SCROLLing  in  BASjC 


The  only  method  that  can  be  realistically  used  to  SCROLL 
the  screen  is  to  store  an  image  of  the  screen  in  a  string 
array  and  PRINT  this.  Here  are  four  example  programs  that 
enable  the  entire  screen  to  be  SCROLLed  up,  down,  left,  or 
right. 

Note  that  these  programs  will  not  fit  into  the  standard  T/S 
1000.  You  can  use  them  only  if  you  have  additional  memory 
fitted.  You’ll  see  how  effective  these  programs  can  be  when 
you  run  them.  Enter  at  least  three  lines  of  text  (as  a  result 
of  the  input  prompt  from  line  20)  to  see  the  routines  at  their 
best. 

These  routines  are  noticeably  slower  than  the  command 
SCROLL,  especially  the  left  and  right  SCROLLS  because 
those  are  PRlNTed  one  line  at  a  time. 

Upward  SCROLL: 

10  DIH  O!li(704..it 
20  INPUT  Rjt 
30  PRINT  RT  0..0;R* 

4.0  LET  fl$«n$C33  TO 

50  GOTO  30 

Downward  SCROLL: 


10  DIM  R$:(704.) 

20  INPUT  R* 

30  PRINT  RT  0.0; R$ 

4.0  LET  Rjlss" 

••+R*t  TO  6725 

50  GOTO  30 
Leftward  SCROLL: 


10  DIM  R^«7©4.5 
20  INPUT  R* 

30  PRINT  RT 

4.0  FOR  F  =  1  TO  6Y3 

50  LET  R45  fF  TO  F4-31.5  sR*  (F+1  TO 
F+31)  +••  •• 

60  NEXT  F 
70  GOTO  30 
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Rightward  SCROLL: 

1©  DIM 
20  INPUT 
30  PRINT  RT  0., 

4-3  FOR  F  =  1  TO  673  STEP  32 
S0  LET  1=1$  (F  TO  F431)  ="  ”^R$(r 

TO  F+305 

60  NEXT  F 
70  GOTO  3© 


Saving  lines  at  screen  edges 


TTie  easiest  way  to  accomplish  this  is  to  use  the  string 
slicing  facility  to  SCROLL  certain  parts  of  the  string  only. 
Here  is  an  example  with  the  upward  SCROLL.  L  is  the  number 
of  lines  NOT  to  be  SCROLLed.  It  is  better  to  put  at  least 
three  lines  of  text  whai  asked. 

10  DIM  R$(7©4.) 

20  INPUT  n$ 

2S  INPUT  L 
30  PRINT  RT  0^0; R$ 

4.0  LET  RS{LS32-M  TO  )=fi$f(L+15 
»32-l-l  TO  1 
50  GOTO  30 

A  similar  program  can  be  used  with  the  downward  SCROLL. 
L  is  the  number  of  lines  not  to  be  SCROLLed  at  the  bottom 
of  the  screen. 

10  DIM  C704.J 
20  INPUT  n$ 

25  INPUT  L 
30  PRINT  RT  O..  0.:R$ 

4.0  LET  R$t  TO  704. -L 4^32 >  =•• 

•*  +R$  t 

TO  704.- fL  +  lJ  *32) 

50  GOTO  30 

The  same  technique  can  be  applied  to  the  sideways 
SCROLLS,  but  since  these  are  slow  enough  already,  it  hardly 
seems  worthwhile.  You  can  extend  this  idea  to  permit  lines  in 
any  part  of  the  screen  to  be  kept  stationary  while  those  above 
and/or  below  are  SCROLLed,  simply  by  modifying  die  string 
slicing;  however,  if  you  require  complex  arithmetic  to  work 
this  out,  then  you  may  slow  the  routine  down  excessively. 
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Another  technique  you  can  apply  to  these  routines  is  wrap¬ 
around,  whereby  anything  disappearing  off  any  edge  promptly 
reappears  on  the  opposite  edge.  Here’s  how  to  do  this  with  an 
upward  SCROLL: 

10  DXM  Pi$(704.) 

2©  INPUT 

30  PRINT  RT  0.0; R$ 

^  4.0  LET  tSS  TO  >  +R$  (  TO  32 

5©  GOTO  30 

a  downward  SCROLL  with  wraparound: 

10  DIH  R$(704.) 

20  INPUT  R* 

30  PRINT  RT  0^0;R$ 

4-0  LET  R$=R$C673  TO  )  +R$  (  TO  6  y 
72) 

50  GOTO  30 

and  a  leftward  SCROLL  with  wraparound: 

10  DIH  R$<704.) 

20  INPUT  R$ 

30  PRINT  RT  0..O.:R$ 

4.0  FOR  F  =  1  TO  673  STEP  32 
50  LET  RfltF  TO  F+31)=R*(F  +  1  TO 
F+31)  +©*  tF) 

60  NEXT  F 
70  GOTO  30 

For  a  rightward  SCROLL  with  wraparound,  change  line  50 


50  LET  R$CF  TO  F+31?  =«$  tF+31) 
RJiCF  TO  F+303 

Keep  in  mind  that  the  routines  are  not  SCROLLing  PRINT 
statements,  but  moving  elements  of  the  array  AS.  nierefore, 
you  cannot  just  PRINT  something  to  the  screen  and  expect 
it  to  be  SCROLLed.  Instead,  .you  must  assign  elements  of 
the  array  to  the  letters  you  wish  to  SCROLL.  Here’s  an 
example,  which  allows  you  to  input  additional  string  informa¬ 
tion  after  the  first  array  has  been  entered.  It  uses  the  down¬ 
ward  SCROLL  with  wraparound  routine.  When  you  run  it,  you 
are  able  to  enter  a  s^ng  as  before.  Then,  you  interrupt  the 
downward  SCROLLing  at  any  point  by  touching  any  key 
(except  BREAK  or  SHIFT).  You  then  enter  a  new  string,  and 
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press  ENTER,  and  your  new  material  starts  SCROLLing  down 
from  the  top,  while  the  original  material  continues  its  down¬ 
ward  SCROLL.  You  can  do  this  over  and  over  again,  noting 
that  you’ll  overwrite  information  which  is  at  the  very  top 
of  the  screen  when  you  decide  to  input  new  material.  Run 
this,  and  it  should  be  clear: 


1©  CXH  t=t$(7©4.} 

2©  XNPUT 
30  PRINT  RT 

4-0  L.ET  R*=fi*C673  TO  )  «  TO  6 

T£) 

50  IF  INK5Y  $<>**•*  THEN  GOTO  S© 
60  GOTO  3© 

8©  XS4PUT 

90  L.ET  (i_EN  B$4-i  TO  7© 


10©  GOTO  3© 


CHAPTER  13 
Moving  graphics 


The  theory  behind  moving  graphics  is  that  first  we  draw  a 
character  in  one  position  for  a  short  time,  then  erase  it  and 
draw  it  in  another  position.  Variables  are  used  to  remember 
the  position  of  the  character.  Let  us  look  at  an  example 
program  which  we  can  draw  up  from  this  theory: 

10  LET  X=0 

20  PRINT  RT  S..X.;  •**" 

30  PRINT  RT  S^X;  "  ” 

4.0  LET  X:=X  +  1 

50  GOTO  a© 

This  is  not  a  very  good  program — the  black  blob  seems  to 
flash  on  and  off  as  it  moves  across  the  screen  and  the 
program  stoi»  with  report  B/20  when  the  blob  reaches  the 
right-hand  side  of  the  screen.  If  you  look  up  what  the  error 
report  means  in  the  appendix  of  this  book,  it  says  that  the 
integer  is  out  of  range.  What  has  happened  is  that  X  was  the 
variable  that  told  the  computer  how  far  across  the  screen  it 
should  PRINT  the  black  blob,  and  if  the  number  is  greater 
than  31,  then  your  computer  cannot  PRINT  since  the  limits  of 
the  screen  are  from  0  to  31 ,  and  any  attempts  to  use  a  number 
greater  tihan  31  would  place  the  blob  off  the  screen  to  the 
right.  Now  the  T/S  1000,  being  a  rather  clever  little  ma¬ 
chine,  decides  that  this  is  an  error,  so  it  stops  the  program 
and  tells  you  what  went  wrong  so  that  you  can  correct  it.  Let 
us  do  this.  The  easiest  way  is  to  arrange  that  if  die  value  of  X 
goes  outside  the  permitted  range,  then  the  program  automati¬ 
cally  changes  it  to  a  suitable  value.  One  way  in  which  this 
can  be  done  is  to  add  a  line  like 

4.5  IF  X>31  THEN  LET  X=0 

but  since  we  already  have  a  line  saying  LET  X  =  0  in  line  10, 
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we  could  do  the  same  thing  by  sending  the  program  back  to 
line  10: 

4.S  IF  X>31  THEN  GOTO  1© 

The  technique  of  sending  a  program  back  to  the  beginning  in 
(wder  to  reset  some  variables  to  their  starting  values  is  used  rather 
a  lot  in  programs.  In  tiiis  example  both  methods  achieve  the  same 
results,  but  you  may  come  across  certain  programs  where  only 
one  is  suitable,  or  one  rr^thod  is  better  than  the  other. 

The  next  step  is  to  improve  the  flashing  display.  One  way 
to  do  this  is  to  make  sure  the  blob  is  displayed  for  longer  than 
it  is  erased.  Try  this: 

10  LET  X=0 
2©  PRINT  RT  S..X.:  **■*• 

30  FOR  pal  TO  5 
4.0  NEXT  F 

50  PRINT  RT  " 

©0  LET  XaX+1 

70  IF  X>31  THEN  LET  Xa0 

80  GOTO  20 


It  seems  to  work  rather  well,  but  in  most  programs  there 
are  other  computations  to  be  carried  out  which  will  slow 
down  the  program,  and  the  time- wasting  loop  of  lines  30  and 
40  will  slow  things  down  unnecessarily.  Therefore,  this  is  not 
a  very  good  approach.  Let  us  try  to  reduce  the  flashing  by 
reducing  the  time  between  the  space  being  PRINTed  and  the 
blob  being  PRINTed.  Try  this  program: 


10  LET  Xa0 

20  LET  PaX 

30  LET  XaX-M 

40  IF  X>31  THEN  LET  X=0 

SO  PRINT  RT  S^P;**  “^RT  5^X;  ”1 

60  GOTO  20 


Here,  X  is  the  variable  that  remembers  the  current  position 
of  the  blob.  P  remembers  the  previous  jxjsition  so  that  it  may 
be  erased  by  drawing  a  space  over  it.  Line  10  makes  X  start 
off  with  a  value  of  0.  Line  20  determines  the  value  of  P  by 
making  it  equal  to  X  before  X  is  increased  in  value  in  line  30. 
This  can  be  any  amount  of  increase — try  changing  the  num¬ 
ber  after  the  +  sign  to  see  the  effect.  It  appears  to  move 
faster,  and  that  can  be  advantageous  or  disadvantageous.  Stay 
with  1  after  the  -f  sign  for  now. 
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Line  40  ensures  that  when  the  blob  has  reached  the 
right-hand  side  of  the  screen,  it  is  sent  back  to  the  left-hand 
side  of  the  screen  by  resetting  X  to  0.  This  provides  a  constant 
supply  of  blobs  for  us!  Line  50  does  all  the  PRINTing — ^note 
how  two  AT  functions  can  be  placed  on  the  same  line  joined 
by  a  semicolon.  We  can  also  do  the  same  with  TAB  inciden¬ 
tally.  Try  writing  these  as  two  separate  lines  like  this  to  see  if 
it  makes  any  difference  to  the  program: 

50  PRINT  RT  “ 

55  PRINT  RT  5..  X.;**Ji** 

We  can  shorten  the  program  by  one  line  by  changing  line 
30  to 

30  LET  XsX+l  RND  X<31 

The  way  in  which  this  line  works  is  rather  complex,  and  is 
more  fully  explained  in  the  sections  on  conditional  state¬ 
ments.  Simplified,  it  means  “if  X  is  less  than  31,  then  add  1 
to  the  value  of  X,  but  if  X  is  not  less  than  31,  then  make  X 
0.”  Now  delete  line  40  (the  one  we’ve  made  redundant), 
and  renumber  nicely  in  steps  of  10;  we  should  end  up  with 
this: 


10  LET  X-0 
S0  LET  P=X 

30  LET  X=X+1  AND  X<31 

4.0  PRINT  RT  5^P;  *•  ••;RT  5,X;  **1 

50  GOTO  20 


You  may  have  noticed  that  the  space  is  PRINTed  one 
column  behind  the  blob  all  the  time,  and  therefore  it  may  be 
possible  to  simply  use  PRINT  AT  5,X;  “(space)*’’  and  dis¬ 
pense  with  the  variable  P  altogether.  This  does  make  the 
display  smoother,  but  it  causes  problems  when  it  gets  to  the 
end  of  the  line  and  you  need  an  extra  line  to  clear  this 
position.  To  see  what  I  mean,  try  this  program: 


10  LET  Xs=0 

20  LET  Xr.X-fl  RND  X<30 
30  PRINT  RT  H" 

40  GOTO  20 


Note  that  every  time  a  new  blob  shoots  across  the  screen, 
the  old  one  stays  on  the  right  of  the  screen.  Let  us  add  a 
facility  to  erase  these  blobs: 
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i®  LET  X=:0 

20  LET  X-X+1  RND  X<3e 
30  PRINT  RT  S^X.:" 

35  IF  X=0  THEN  PRINT  RT  5^31^ 


4.0  GOTO  20 


Again  we  can  use  AND  to  shorten  the  program  a  little; 

1©  LET  X=0 

20  LET  X=X+1  RHD  X<3© 

3®  PRINT  RT  S.,X.J”  *";RT  5,.  31;” 

"  RND  X=© 

4.0  GOTO  20 

Line  35  in  the  first  program  and  the  second  part  of  line  30 
in  the  second  program  ensure  that  a  space  is  only  PRINTed  if 
the  blob  has  reached  the  end  of  its  travel.  Here  is  another  way 
of  doing  tiiis  using  the  control  variable  of  a  FOR/NEXT  loop 
instead  of  the  conventional  variable  X.  This  method  uses  a 
little  less  memory  and  is  slightly  faster  to  run. 

10  FOR  X-0  TO  30 

20  PRINT  RT  5..X;**  ■“iRT  S..31;’' 

"  RND  Xs:0 

30  NEXT  X 

4.0  GOTO  10 

Another  way  to  use  this  method  is  to  have  PRINT  AT 
5,31;  “(space)”  outside  the  FOR/NEXT  loop.  This  has  the 
advantage  that  the  computer  does  not,  have  to  examine  the 
'Conditional  expression  as  often;  therefore,  the  program  runs 
slightly  faster: 

10  FOR  X-0  TO  30 
20  PRINT  RT  S^X;*' 

30  NEXT  X 

4.0  PRINT  RT  5.31:  “  ” 

5©  GOTO  10 

-We’ve  ended  up  with  a  routine  that  is  quite  fast-running 
and  economical  in  memory  usage.  We’ve  also  seen  some  of 
the  problems  of  developing  this  kind  of  program.  The  exam¬ 
ples  we’ve  seen  so  far  deal  with  constant  movement  across 
the  screen.  We  will  also  want  to  move  characters  about  the 
screen,  possibly  with  control  of  this  movement  from  the 
keyboard  so  that  the  operator  may  control  the  movement.  To 
do  this,  we  first  need  to  return  to  INKEYS,  a  very  useful  aid 
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for  moving  graphics.  If  you’ve  read  the  earlier  section,  you’ll 
recall  that  INKEY  S  is  the  character  which  corresponds  to  the 
key  being  pressed  on  the  keyboard.  If  you  press  K,  then 
INKEYgis  “K”  or  INKEYg=  “K”.  If  you  aren’t  pressing  any¬ 
thing  on  the  keyboard,  INKEYS  becomes  the  empty  string,  or 
“  (INKEYS  cannot  be  “(space)”  because  pressing  SPACE 
acts  as  BREAK  when  a  program  is  running  and  stops  a 
BASIC  program.)  We  will  look  now  at  some  other  ways  in 
which  we  can  use  INKEYS,  because  it  is  a  powerful  and 
extremely  useful  function  for  moving  graphics.  Most  arcade 
games  require  you  to  press  buttons,  flick  switches  or  manipu¬ 
late  joysticks.  Your  computer  does  not  have  these  (unless  you 
buy  or  build  an  add-on  board),  so  all  control  has  to  be 
through  the  keyboard. 

To  control  movement  on  the  screen,  certain  keys  have 
advantages  over  others,  either  because  of  their  layout  or 
because  of  what’s  written  on  them.  For  instance,  take  the  M 
and  the  N  keys  on  the  bottom  row  of  the  keyboard.  They 
have  the  <  and  >  symbols  marked  on  them  in  red.  These  can  be 
considered  as  arrows  pointing  left  or  right,  so  they  could  be 
used  to  control  left/right  movement  on  screen,  e  g.,  in  an 
invaders  type  of  game.  Their  advantage  is  that  they  are  easy 
to  find  and  are  next  to  each  other,  making  them  convenient  to 
use.  One  disadvantage  is  that  they  are  near  the  BREAK  key, 
and  you  may  accidentally  stop  the  program  in  a  frenzied 
hurry  to  avoid  being  bombed  by  the  green  menace. 

If  you  want  to  control  left/right/up/down  movement  (e.g. , 
to  move  the  cumor  in  the  word-processor  program  near  the 
back  of  this  book),  then  the  5,  6,  7,  and  8  keys  are  a  better 
choice  since  they  have  arrows  pointing  in  the  four  directions 
printed  on  the  keys  and  are  next  to  each  other  for  convenience 
of  use  but  are  not  dangerously  near  BREAK. 

The  most  common  way  of  using  INKEYS  in  a  moving 
graphics  program  (be  it  games  or  serious  applications)  is  to 
put  it  in  a  conditional  statement  to  control  the  value  of  a 
variable.  For  example, 

IF  IHKEY!t=:“3"  THEN  i-ET  Xs^X-rl 

Here,  1  is  added  to  the  value  of  X  if  the  8  key  is  being 
pressed,  but  X  stays  the  same  if  no  key  is  being  pressed 
or  a  key  other  than  8  is  being  pressed.  The  variable  can 
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be  used  to  control,  for  example. 

where  to  PRINT  on  the 

screen: 

10O 

IF 

INKEYS  =''S" 

THEM 

LET 

X*X- 

110 

IF 

INKEYS  «**  a" 

THEN 

LET 

X=X- 

X 

120 

IF 

INKEYS  =**  7" 

THEN 

LET 

y*y- 

i 

130 

IF 

INKEYS -"6" 

THEN 

LET 

Y-Y  + 

14.0 

PRINT  RT 

If  we 

adopt  the  convention  of  X  being  the 

horizontal 

position  across  tte  screen  and  Y  being  the  vertical  position  on 
the  screen,  then  the  larger  the  value  of  X,  the  further  to 
the  right  across  the  screen  the  character  is  PRINTed,  and  the 
larger  the  value  of  Y,  the  further  down  the  screen  the  charac¬ 
ter  is  PRINTed. 

Knowing  this  we  can  write  a  short  program  to  control  the 
movement  of  a  character  (e.g.,  an  asterisk)  on  the  screen¬ 
using  the  keys  5,  6,  7,  and  8  (die  keys  with  arrows  printed  on 
them): 

X00  IF  INKEY  5**  THEN  LET  X«X- 

1 

110  IF  INKEYS  s'*  8"  THEN  LET  X  «>?•#■ 

a 

12©  IF  INKEY5i=:**T"  THEN  LET  Y^Y- 

1 

13©  IF  INKEYS  =  •*6"  THEN  LET  Y«Y-»> 

a 

14.0  PRINT  RT  Y..X.;”  ” 

Before  we  can  RUN  this  program  we  heed  to  define  X  and 
Y  or  we’ll  cause  an  error  2  when  the  computer  tries  to  carry 
out  any  of  the  lines.  Add  these  lines  to  the  program; 

10  LET  X-0 
20  LET  Y«© 

We  can  now  RUN  the  program.  What  we  get  is  an  asterisk 
PRINTed  at  the  top  left  comer  of  the  screen,  and  the  program 
stops  after  line  140.  To  prevent  this  from  happening,  we  can 
add  a  line  like 

200  GOTO  100 

This  ensures  that  the  computer  continues  doing  the  task 
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over  and  over  again.  RUN  the  program  and  try  pressing  the 
5,  6,  7,  and  8  keys  one  at  a  time.  You  will  see  that  as  the 
asterisk  moves  it  leaves  behind  a  trail  of  asterisks.  Keep 
going  to  the  edge  of  the  screen  and  keep  pressing  the  keys. 
Strange  things  begin  to  happen.  If  you  go  off  the  bottom  of 
the  screen  or  off  the  right-hand  side  of  the  screen,  the  pro¬ 
gram  stops  with  error  B  in  line  140.  This  is  because  the  value 
of  X  has  become  greater  than  31  or  the  value  of  Y  has 
become  greater  than  21,  and  as  a  consequence  the  computer 
is  being  asked  to  PRINT  outside  the  screen  boundaries — ^this, 
of  course,  it  cannot  do. 

However,  if  you  try  to  move  past  the  top  of  the  screen  or 
the  left-hand  edge  of  the  screen,  even  stranger  things  begin  to 
happen — the  asterisk  starts  to  travel  in  the  opposite  direction! 
It’s  not  that  we’ve  broken  the  computer  or  anything  like  that; 
there  is  a  simple  explanation.  When  the  value  of  X  or  Y  is 
negative  (as  happens  when  you  try  to  go  off  the  top  or  the 
left-hand  side  of  the  screen),  then  PRINT  ignores  the  -  sign  (it 
takes  the  ABS  value  if  you  like),  and  it  apparently  causes 
some  keys  to  change  functions!  Not  very  useful  to  say  the 
least,  since  you  then  have  to  take  the  asterisk  back  to  the 
screen  boundaries  to  restore  normal  operation.  What  we  need 
is  a  method  whereby  if  the  asterisk  gets  to  the  edge  of  the 
screen  it  stops  and  will  not  attempt  to  go  outside  the  screen 
line. 

The  easiest  method  is  to  prevent  X  and  Y  taking  values 
which  cause  these  problems.  The  values  which  are  permissi¬ 
ble  are  0  to  31  for  X  and  0  to  21  for  Y.  Here’s  how  to  do  this. 
Change  lines  100,  110,  120,  and  130  like  this: 


100  IF  XMKEY$=:“5" 
LET  X=X-1 
3.10  IF  It'IKEY$  =  "8** 
i  F'T* 

as©  IF  INKEY*  =  '*7** 
LET  YssY-1 
13©  IF  INKEY$="6“ 
LET  Y=sY  +  l 


fiND 

X 

V 

© 

THEN 

AND 

X  <31 

THEN 

fiND 

Y>0 

THEN 

fiND 

Y<21 

THEN 

This  makes  the  asterisk  stay  on  the  screen  properly,  but  we 
still  have  a  problem  in  that  a  trail  of  asterisks  is  set  up  as  the 
asterisk  moves.  This  is  because  we  have  no  facility  to  erase 
the  old  position  of  the  asterisk  when  it  moves.  The  best  way 
to  do  this  is  to  use  a  second  set  of  variables  to  remember  the 
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old  position  of  the  character,  and  if  it’s  different  than  the  new 
position,  to  PRINT  a  space  in  the  old  position. 

To  do  this  add  these  lines; 

S©  LET  1=1 -X 
S0  LET  BssY 

135  IF  ft  OX  OR  BOY  THEN  PRINT 
RT  B  .  R  ;  •*  •* 

SO©  GOTO  50 

The  program  you  have  in  the  computer  should  now  be: 

10  LET  X-0  ' 

20  LET  Y=0 
50  LET  R==X 
60  LET  B=Y 

100  IF  INKEY*s="5"  RND  X>0  THEN 

LET  Xj=X-1 

110  IF  INKEY PHD  X<31  THEN 
LET  X=X+1 

120  IF  INKEY$  =  ’'-7**  RND  Y>©  THEN 

LET  Y-Y-1 

130  IF  INKEYS-''S**  RND  Y<21  THEN 

LET  YssY  +  1 

135  IF  RoX  OR  BOY  THEN  PRINT 
RT  B^  r;  '•  •’ 

14.0  PRINT  RT  Y..X.;“^t** 

200  GOTO  S© 

We  now  have  learned  the  basics  of  a  moving  graphics 
program.  When  we  get  around  to  designing  a  game  around 
this  routine,  we  may  have  to  alter  some  details  or  change  the 
order  of  statements  but  the  principles  involved  will  be  sim¬ 
ilar.  As  we  did  earlier,  we~may  dso  be  able  to  shorten  the 
routine  somewhat,  for  example: 

10  LET  X“© 

20  LET  Y=@ 

50  LET  R=X 
60  LET  B=Y 

100  LET  X=X~ C INKEY$= ”5“  RHD  X>0 
J  +  {INKEY$  =  ‘'6**  RND  X<31) 

110  LET  Y=Y- « INKEY*=:**7"  RN0  Y>© 
)  +  {INKEY$  =  **6"  AND  Y<213 
135  XF  ROX  OR  THEN  PRINT 

RT  B  ..  R.:  ••  •• . 

14.0  PRINT  RT  Y..X;‘*#” 

200  GOTO  5© 

This  version  occupies  nearly  50  bytes  less  than  the  previ¬ 
ous  version.  You  could  also  combine  line  140  with  line  135 
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into  one  conditional  statement,  since  neither  PRINT  statement 
is  required  unless  the  asterisk  has  moved.  This  means  we  can 
delete  line  140.  Here  is  how  to  change  line  135: 

135  IF  Rox  OR  BOY  THEN  PRINT 
RT  B..  R;  •'  ".IRT  Y.,  X;  “»•* 

Remember  to  del^e  line  140.  The  disadvantage  is  that 
while  saving  5  more  bytes  of  memory,  when  the  program  is 
first  RUN,  the  asterisk  does  not  actually  appear  on  screen 
until  it  is  moved!  So  it  is  better  not  to  do  this  unless  you  are 
desperate  for  memory! 

Let  us  now  look  at  another  facility  which  is  useful  in 
moving  graphics  programs — SCROLL.  The  action  of  SCROLL 
is  to  move  everything  in  the  display  up  one  line;  if  there  was 
anything  printed  on  the  top  line  of  the  display  then  it  is  lost. 
When  SCROLL  has  been  used,  the  PRINT  position  is  moved 
to  start  of  the  bottom  line,  i.e.,  PRINT  AT  21,0;,  by  the 
computer.  You  can  move  the  PRINT  position  elsewhere  if 
you  choose  by  means  of  another  PRINT  AT  statement. 

Can  you  see  how  we  could  make  use  of  SCROLL  when 
writing  programs  with  moving  graphics?  Take  the  example  of 
a  game  where  the  spaceship  is  rushing  through  space,  with 
asteroids  or  space  debris  rushing  past.  The  only  problem  is  to 
keep  the  spaceship  still.  To  see  how  we  do  this,  study  the 
game  program  CRASHER  that  follows. 

In  general,  moving-graphics  programs  using  SCROLL  tend 
to  take  this  form:  A  character  is  placed  at  a  certain  position 
on  the  screen  and  other  characters  SCROLL  up  the  screen 
towards  it,  the  object  being  to  control  sideways  movement  of  the 
first  character  so  that  it  hits  or  avoids  those  being  SCROLLed 
up  toward  it.  This  leads  us  to  an  important  requirement — to 
be  able  to  tell  whether  something  has  been  hit,  missed,  or 
whatever.  The  method  we  actually  use  is  as  follows: 

First,  move  the  PRINT  position  to  where  we  want  to 
examine  but  don’t  actually  PRINT  anything  there.  Then  look 
up  the  memory  location  to  see  what’s  already  there.  This  may 
be  done  more  simply  than  it  sounds.  The  system  variables 
16398  and  16399  which  store  the  address  of  the  PRINT 
position  in  the  display  file  (the  area  of  memory  which  stores 
the  picture)  are  very  useful  for  this  purpose.  What  we  do  is 
move  the  PRINT  position  somewhere  without  printing  any- 
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thing  there  (using  PRINT  AT  Y,X;  for  example,  without 
anything  after  the  semicolon),  then  find  the  address  of  the 
PRINT  position  in  the  display  file  by  using  PEEK{PEEK 
16398  +  256*PEEK  16399),  i.e.,  PEEKing  the  address  of  the 
PRINT  position  which  is  given  by  the  expression  in  parenthe¬ 
ses  and  analyzing  the  number  obtained.  This  can  be  seen 
better  by  analyzing  the  program  CRASHER  that  we’ll  look 
at  shortly.  First,  though,  here  are  a  few  sample  programs 
to  illustrate  other  moving-graphics  ideas  we’ve  discussed. 
For  further  explanation,  see  the  section  on  PEEK  and 
POKE. 


UFO 


The  object  of  this  game  is  to  fire,  by  pressing  any  key 
except  BREAK,  when  the  UFO  flies  over  your  base,  and  be 
rewarded  with  a  hit  if  you  succeed.  You  only  have  10  shots 
so  try  to  score  as  many  hits  as  possible  before  the  game 
stops. 

Here  is  the  listing: 


4...  e? 


3.0  PRINT  RT  15 

a©  L,ST  Hssr© 

30  LET  H=H 
4.0  LET 

50  FOR  K=0  TO  IS 
7©  IF  =  THEN  STOP 

S©  PRINT  RT  Y.,X;  “ 

90  IF  INKEY^O* 

GOTO  140 

100  IF  iNKE'i^l^  <>•••*  THEN  LET 


RND  .X  =  14  THEN 


11©  NEXT  X 

la©  PRINT  RT  Y^2©;"  “ 

130  GOTO  4© 

14©  LET  H=H+1 

150  FOR  Fssl  TO  30 

Xee  PRINT  RT  Y..X.;  “HIT**;  RT  Y.X; 

ai**;flT  Y..X;“ 

170  NEXT  F 

130  PRINT  RT  4.,ia.;H 

190  GOTO  40 
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Line  10  sets  up  the  main  parts  of  the  display,  the  parts  that 
do  not  move  during  the  program.  H  is  the  variable  that 
remembers  the  amount  of  hits  you  have  scored  and  M  the 
amount  of  misses  (shots  without  hitting  the  UFO!),  and  both 
are  initially  set  to  0.  Line  40  sets  the  Y  coordinate  of  the 
UFO  to  a  value  from  7  to  13  at  random.  PRINT  takes  the 
value  of  the  nearest  whole  number  if  one  of  the  coordinates  is 
not  an  integer,  so  RND*6  +  7  can  be  from  7  to  13.  This  gives 
the  position  of  the  UFO  up  the  screen.  The  main  loop  for 
controlling  the  flight  of  the  UFO  across  the  screen  begins  at 
line  50;  0  is  the  starting  position,  19  the  end  position.  Line  70 
checks  if  you’ve  had  10  shots,  then  stops  the  program  if  you 
have.  Line  80  PRINTs  the  UFO,  an  inverse  + .  Note  how  it 
erases  the  old  jwsition  by  PRINTing  a  space  one  position 
behind  the  UFO  (in  its  previous  position).  Line  90  checks  if  a 
key  is  being  jwessed,  and  if  the  UFO  is  directly  above  the 
base,  it  sends  the  aaion  to  the  HIT  routine  at  line  140.  This 
adds  1  to  the  number  of  hits  scored  and  provides  an  explosive¬ 
looking  display  at  the  point  where  the  UFO  was  hit,  then 
sends  the  program  to  line  40  again  to  supply  another  UFO. 
However,  if  a  key  was  pressed  and  the  UFO  was  not  above 
the  base,  then  1  is  added  to  the  number  of  misses.  If  the  UFO 
reaches  the  end  of  its  travel,  the  program  falls  out  of  the 
FOR/NEXT  loop  and  line  120  erases  the  final  position  of  the 
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UFO;  then  line  130  sends  the  program  back  to  line  40  to  set  up 
a  new  UFO. 


Garbage  gobbler 


The  object  of  this  game  is  to  clear  up  garbage  which 
appears  on  the  screen  as  little  gray  squares.  You  control  the 
inverse  +  witti  the  5,  6,  7,  and  8  keys,  movement  being  in 
the  direction  of  the  arrows  printed  on  the  keys.  You  collect 
the  garbage  by  landing  on  top  of  it.  You  can  only  move  over 
a  small  section  of  the  screen,  because  the  program  has  been 
designed  to  RUN  on  a  standard  T/S  1000,  so  users  with  more 
memory  can  expand  the  program  to  cover  a  greater  area  of 
the  screen  if  they  desire.  You  are  given  a  random  time,  and 
you  are  told  how  many  items  of  garbage  you  collected  when 
this  time  is  up.  The  loop  in  lines  10  to  30  sets  up  the  garbage  in 
random  |K)sitions. 


X  RRND 

10  for  Rssl  TO  30 
30  PRINT  RT  INT  (RNDiTlSJ  ..  INT 
RND»i7);CHR»  S 
30  NEXT  R 
4.0  LET  Rs© 

50  LET  XsINT 
60  LET  YalNT 
70  FOR  TssINT 
STEP  -i 

Q0  LET  X1=X 
90  LET  YX—Y 

3.00  LET  X»X+ CINKEYSi«"8“  RND  X  <  2. 
S)  -  f  INKEY$iss**S”  RND  X>©J 
a.10  LET  Y=sY+ (INKEYli=t"6' 

4-3  ~  { INKEY 5i-*'7"  RND  Y>©) 

3.30  PRINT  RT  Y.X; 

PEEK  tPEEk  163SS+aS6*PEE 
K  3.6399)  s=S  THEN  LET  RsR-f-l 
14.0  PRINT  RT  Yl,.Xl;"  "  RND  fX  <  > 
XI  OR  Y <>Y  1)  RT  Y.X ;  **«•• 

150  NE.XT  T  .  .  — 

160  PRINT  RT  30,0; “YOU  COLLECTS 
D  R 


(RND3tl7) 

(RND*1S) 

CRND*^80)  -1*30  TO  @ 


RND  Y<1 
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li 


s 


<1^ 


YOU  COLLECTED  12 


You  can  vary  the  amount  of  garbage  PRJNTed  by  changing 
the  number  after  TO  in  line  10  A  is  the  amount  of  garbage 
collected  and  is  initially  set  to  0  in  line  40.  Lines  50  and  60 
set  the  initial  position  of  the  O.  Line  70  sets  the  timing  loop 
to  a  random  value  between  30  and  110  and  counts  backwards 
to  0  (STEP  -1).  In  lines  80  and  90  a  second  set  of  variables  XI 
and  Y1  remember  the  position  of  the  O  so  that  if  it  moves  we 
know  where  to  erase.  Lines  100  and  1 10  detect  which  keys  are 
pressed  and  change  the  values  of  X  and  Y  accordingly;  they 
also  set  the  limits  of  travel.  Line  120  moves  the  PRINT 
position  to  the  new  location  of  the  O.  Line  130  picks  up  the 
address  of  this  position  in  memory  from  the  system  variables 
16398  and  16399,  then  PEEKs  this  address  to  find  out  if  there 
is  garbage  there  and  adds  I  to  A  if  there  is.  Line  140 
erases  the  old  position  of  the  Q  if  it’s  different  from 
the  new  position  and  places  it  in  its  new  position.  If  your 
time  is  up  (the  program  has  fallen  out  of  the  FOR/NEXT 
loop),  then  line  160  tells  you  how  many  items  of  garbage 
you  collected. 
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Crasher 


The  name  of  this  program  has  nothing  to  do  with  some 
computers’  habits  of  blanking  out!  You  are  drifting  in  space, 
the  object  being  to  clear  up  as  much  debris  as  you  can, 
particularly  debris  with  a  high  code  value.  The  debris  is 
valued  according  to  the  code  of  the  character  of  debris.  The 
letters  score  highest,  then  numbere,  and  so  on.  Have  a  look  at 
the  appendix  at  the  back  of  this  book  to  see  this  in  full. 
Ignore  inverse  characters  if  they  appear,  for  they  are  not 
worth  anything  because  they’ve  been  affected  by  solar  radia¬ 
tion  and  mutated  to  their  inverse  form.  ITie  keys  5  and  8  steer 
you  left  and  right  in  die  direction  of  the  arrows  on  the  keys. 
You  score  when  the  debris  is  directly  ahead  of  you  on  the 
screen  and  you  “crash”  into  it. 

Here  is  the  program  listing; 


10  LET  X=10 
2©  LET  Y=10 
30  LET  S=0 
4.0  LET  F=S 
50  LET  FssF  +  1 

60  PRINT  PT  20.,IHT  \RND»20)  CH 

R*  (INT  CRND»63-I-1J  +  (  126  RNP  RND  < 
.3>  )  ;  RT  Y^x;  “  •• 

70  SCROLL 

80  LET  X=X+ CINKEY$r:**S*'  RND  X<i 
- CINKEY*s"5“  RND  X>0) 

90  PRINT  RT  Yj,X;  "U”;  RT  Y  +  1..X; 
100  LET  PsrPEEK  (PEEK  16398 -i-SSfe 
PEEK  163995 

110  IF  P  <64.  THEN  LET  S=S+P 
120  IF  F<100  THEN  GOTO  5© 

130  PRINT  S 
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M 


+ 


■ 
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> 
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301 
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The  position  of  your  spaceship  on  screen  is  set  by  X 
(horizontal  position)  and  Y  (vertical  position).  These  are 
initially  set  by  lines  10  and  20  to  a  position  at  about  the  middle 
of  the  playing  area  of  the  screen.  The  variable  S  records  your 
score  and  is  set  to  0  at  the  start  of  the  game  by  line  30.  F  is 
the  variable  that  controls  the  duration  of  the  game— it  does 
not  count  in  any  particular  unit  but  is  a  convenient  way  of 
controlling  the  duration  of  the  game.  The  time  is  clocked  up 
in  line  50,  one  unit  of  space-time  at  a  time.  The  statement 
LET  F = F  + 1  may  confuse  you  a  little  since  it  is  hard  to 
imagine  F  being  equal  to  F  + 1 .  It  actually  means  add  1  to  the 
old  value  of  F  to  make  the  new  value.  Line  60  is  rather 
complicated.  It  determines  where  the  character  is  PRINTed, 
which  character  is  PRINTed,  and  whether  it’s  an  inverse 
character.  Let  us  look  at  the  position  first.  The  character  is 
placed  at  the  bottom  of  the  playing ^_^a  (the  Y  coordinate  is 
set  at  20  and  the  X  coordinate  to  a  value  of  from  0  to  19  by  the 
random  number  expression).  The  expression  after  the  semico¬ 
lon  generates  a  character  at  random  from  the  number  gener¬ 
ated  in  parentheses  after  CHR8.  The  number  generated  is  a 
random  number  from  1  to  63 .  The  following  expression  may 
look  rather  strange,  but  all  it  does  is  determine  whether  to  add 
0  or  128  to  this  number  (i.e.,  it  determines  whether  the 
character  generated  is  inverse  or  not).  It  is  a  special  use  of  the 
function  AND. 

It  looks  at  the  following  expression  and  adds  0  to  the  value 
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if  it  is  not  true  or  the  value  before  AND  if  it  is  true,  so  that 
128  is  added  to  the  random  number  only  if  RND  is  less  than 
0.2,  making  it  a  roughly  one-in-five  chance  of  the  character 
being  an  inverse,  nonscoring  character.  The  statement  after 
this  erases  the  old  position  of  the  V  before  it  is  scrolled  up  the 
screen  by  line  70.  This  ensures  that  the  V  is  not  PRINTed 
anywhere  other  than  in  the  middle  of  the  screen.  Line  80 
checks  the  keyboard  to  see  whether  you’re  steering  to  the  left 
or  right  or  keeping  it  stationary,  and  changes  the  value  of  X 
accordingly. 

The  V  is  PRINTed  in  its  new  position  in  line  90.  Can  you 
see  now  how  the  effect  of  this  is  that  the  spaceship  (V) 
remains  stationary  while  space  seems  to  rush  past?  The  sec¬ 
ond  part  of  line  90  moves  the  PRINT  position  to  immediately 
precede  the  position  of  the  spaceship,  so  that  we  may  find 
what  is  immediately  in  front  of  the  spaceship  by  means  of 
line  100,  which  finds  the  CODE  of  the  character  stored  at  that 
memory  location  by  PEEKing  the  address  held  in  the  system 
variables  16398  and  16399.  Line  110  checks  to  see  if  this 
character  ahead  of  the  spaceship  is  a  scoring  character  (i.e.,  it 
has  a  CODE  of  less  than  64,  rather  than  less  than  128  as  you 
might  expect  from  an  inverse  character  detector,  because  this 
would  permit  CHRS  118  ENTER  markers  that  SCROLL 
might  push  up  the  screen). 

You  may  want  to  add  this  line  to  the  program  to  stop  it  if 
you  hit  a  radiation-mutated  piece  of  debris: 

iis  IF  P>a.a7  THEN  GOTO  130 

Here,  we  need  to  specify  >127  to  again  exclude  NEWLINE 
markers  from  fouling  things  up.  If  the  character  below  the 
spaceship  is  a  scoring  character,  then  its  CODE  is  added  to 
your  score  in  line  1 10.  Line  120  checks  to  see  if  your  time  is 
up  (or  your  fuel  has  run  out),  then  either  PRlNTs  your  score 
in  line  130  if  it  is  up  or  sends  the  program  back  for  more 
action  if  you  still  have  time  left. 

This  program  has  dealt  with  the  main  details  of  moving 
graphics  on  your  wmputer.  There  are  three  points  to  consid¬ 
er,  however. 

When  PRINTing  variables,  the  computer  stores  numbers  in 
one  format,  then  needs  to  change  this  to  another  format 
before  they  are  printed. 'This  takes  quite  a  while,  and  slows 
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down  moving  graphics  considerably.  Try  adding  this  line  to 
the  UFO  program: 

105  PRINT  RT  4...  16.:H 

It  was  possible  to  PRINT  variable  H  in  the  same  program 
because  it  was  PRINTed  at  a  time  when  there  were  no 
moving  graphics  and  therefore  the  delay  was  not  noticed. 

Also  note  that  if  you’re  PEEKing  or  POKEing  into  the 
display  file  area  of  memory,  you  should  bear  in  mind  that  if 
there  is  more  than  314K  of  memory  plugged  in,  the  screen  is 
automatically  padded  with  spaces.  The  display  is  therefore 
permanently  at  its  full  size  unless  you  are  using  SCROLL, 
which  can  introduce  short  lines. 

When  I  say  314K,  I  should  say  when  RAMTOP  tells  the 
computer  there  is  3i4K  of  memory.  RAMTOP  is  the  name 
given  to  the  measurement  the  computer  makes  of  the  amount 
I  of  memory  available  for  you  to  use  for  programs.  If  the  com- 
I  puter  is  told  by  the  value  of  RAMTOP  that  there  is  more 
than  314K  available,  and  you  clear  the  screen,  then  the  whole 
screen  is  filled  with  spaces,  or — in  other  words — the  display 
file  is  at  its  maximum  size. 

Assuming  the  display  file  is  full  size,  you  know  the  column 
and  line  number  for  a  PRINT  AT  command,  , and  you  wish  to 
find  out  its  address  in  the  display  file  before  PRINTing  for 
any  reason,  you  can  do  this  in  one  of  two  ways.  Suppose  the 
line  and  column  number  are  Y  and  X,  where  Y  tells  us  the 
number  of  lines  down  the  screen  and  X  the  number  of  col¬ 
umns  across  the  screen.  First,  we  can  use  the  formula 
PEEK  (PEEK  16396 -t-256*PEEK  16397 -h  1 -1-Y*33-1-X)  to 
tell  us  the  CODE  of  the  character  at  location  Y,X.  It 
is  also  possible  to  use  POKE  (PEEK  16396-1-256*PEEK 
16397  + Y*33+X+ 1)  to  place  a  character  on  screen  at 
location  Y,X  but  this  is  the  same  as  PRINT  AT  Y,X; 
(this  was  used  quite  often  on  the  4K  ROM  ZX80  which 
had  no  PRINT  AT  function  but  is  not  required  on  your 
computer).  Remember  that  this  only  works  when  the  display 
file  is  at  full  size.  16396  and  16397  are  the  system  vari¬ 
ables  that  contain  the  address  of  the  start  of  the  display 
file. 

The  second  method  is  the  method  used  in  the  preceding 
programs.  The  PRINT  position  is  moved  using  PRINT  AT  Y ,X; 
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to  screen  location  Y,X.  Using  the  expression  PEEK  (PEEK 
16398  +  256*PEEK  16399),  we  can  find  the  CODE  of  the 
character  already  at  location  Y,X.  This  second  method  is 
generally  preferred  because  the  display  file  does  not  have  to 
be  any  particular  size.  The  first  method  is  only  useful  where 
we  do  not  wish  to  move  the  PRINT  position.  (PEEK  and 
POKE  are  covered  in  detail  a  little  later.) 

Finally,  there  is  one  other  method  of  producing  moving 
graphics  in  BASIC  which  is  not  used  very  often — through  the 
use  of  strings.  Strings  may  be  PRINTS  very  rapidly,  and 
the  computer’s  comprehensive  string  slicing  facilities  (dis¬ 
cussed  earlier  in  the  book)  mean  that  we  have  at  our  disposal 
a  powerful  tool.  The  basic  method  is  to  assign  a  character  or 
string  array  large  enough  to  cover  the  area  of  screen  used  for 
movement  and  PRINT  the  array  at  a  certain  location.  To 
simulate  movement  we  can  either  PRINT  different  parts  of 
the  array  or  change  the  contents  of  the  array. 

PRINT  different  parts  of  the  string  in  order  by  running  this 
short  program; 

10  DtM  (32> 

20  LET  fi) 

30  FOR  R=32  TO  1  STEP  -1 

4.0  PRINT  RT  2©.,  ©..  R^fR  TO  ^  C 

TO  R-a.ii 

S©  HE.XT  R 

S0  GOTO  3© 

Can  you  see  why  it  is  necessary  to  have  line  30  count 
backwards  from  31  to  1?  What  would  happen  if  line  30  counted 
from  1  to  32  (30  FOR  A  =  1  to  32)?  C^aw  out  on  a  piece  of 
paper  (or  use  the  printer  if  you  have  one)  every  step  that  the 
program  will  take  to  make  up  the  display.  Note  the  high 
speed  possible,  and  how  the  previous  position  is  erased  and 
the  new  position  PRINTed  in  one  go.  An  interesting  effect 
may  be  obtained  by  changing  line  20  to  20  INPUT  AS  and 
entering  a  message  of  up  to  32  characters.  This  is  similar  to  a 
type  of  display  found  in  shop  windows  for  advertising  pur¬ 
poses,  although  this  is  not  the  kind  of  effect  one  would 
normally  encounter. 

This  method  of  producing  moving  graphics  from  strings  is 
very  useful  because  it  does  not  alter  the  contents  of  strings/ 
arrays,  but  rather  only  displays  them  in  a  different  order,  so 
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tile  information  may  be  retrieved  easily  at  any  time.  It  can  be 
used  for  a  shop  window  display  like  the  one  below. 


10  PRINT  "ENTER  HESSRGE" 
20  INPUT 

30  IF  R4a:""  THEN  GOTO  20 
4.0  LET  5*10 
S0  CLS 

60  FOR  B=1  TO  LEN  RS+33 
70  PRINT  RT  5,0;  t" 


•M  CB  T 

O  B4-31) 

60  LET  S«S-t2  RND  1NKEY5="F"  R 
ND  S>l)+C2  RND  lNKeY*="D") 

90  IF  INKEY$*"R"  THEN  PRUSE  4.E 

4* 

100  FOR  fl*l  TO  S 
110  NEXT  R 
120  NEXT  B 
130  GOTO  6© 


What  it  does  is  ask  you  to  enter  a  display  message;  after  it 
has  been  entered,  the  message  begins  appearing  from  the  right 
of  the  screen,  and  moving  to  the  left  and  eventually  disap¬ 
pearing  to  the  left,  whereupon  the  sequence  begins  all  over 
again.  The  rotating  sequence  starts  at  a  slow  speed  but  can  be 
speeded  up  by  pressing  the  F  key  (the  key  with  FAST  written 
on  it)  or  slowed  down  by  pressing  the  D  key  (the  key  with 
SLOW  written  on  it).  The  fastest  speed  is  not  very  fast  but  is 
satisfactory.  The  slowest  is  very,  very  slow.  You  can  “freeze” 
the  display  by  pressing  the  A  key  (it  has  STOP  written  on  it!) 
and  it  may  be  “unfrozen”  by  pressing  any  key  except  BREAK, 
whereupon  the  whole  sequence  continues  from  where  it  was 
stopped.  You  can  stop  the  program  at  any  time  by  pressing 
BREAK. 

In  theory,  provided  that  the  computer  has  enough  memory 
available,  the  size  of  the  message  is  limited  by  the  size  of  the 
largest  array  the  computer  can  handle.  In  practice,  however, 
if  you  fill  the  screen  with  the  message  when  entering  it  (i.e., 
it  is  more  than  24  rows  of  32  characters  long),  any  subse¬ 
quent  characters  entered  have  to  be  entered  blind  because 
they  will  seem  to  be  below  the  screen.  Try  this  to  see  what  I 
mean.  Warning;  You’ll  end  up  with  a  tired  finger! 

TTie  message  begins  to  z^pear  from  the  right  of  the  screen 
about  a  quarter  of  the  way  down,  and  runs  along  the  screen 
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toward  the  left.  Once  it  has  disappeared  past  the  left-hand 
side  of  the  screen,  it  reappears  as  before  and  repeats  the  cycle 
over  and  over  again.  The  speed  may  be  varied  as  described. 
The  display  is  frozen,  but  since  the  freeze  routine  uses  PAUSE, 
there  will  be  a  “judder”  or  “flicker”  of  the  display  as  it 
freezes.  TTiis  may  ^  remedied  by  adding  the  following  lines 
to  the  program; 

3©  IF  =  THEN  GOSUB  14. 

^14.0  IF  INKEY^O”"  THEN  GOTO  14© 
IS©  IF  INKEYSta****  THEN  GOTO  S© 
IS©  IF  INKEY  THEN  GOTO  IS© 

170  RETURN 

The  subroutine  at  line  140  replaces  PAUSE  4E4.  Line  160 
is  necessary  so  that  the  program  does  not  “unfreeze”  until 
you  let  go  of  the  unfreeze  key  and  the  routine  does  not 
retrigger  when  it  gets  to  line  90.  If  you  are  uncertain  of  the 
function  of  all  these  new  lines,  try  leaving  one  out  to  see"^ 
what  effect  it  has. 

The  only  real  point  to  note  is  that  it  is  unwise  to  use 
keywords  which  are  composed  of  more  than  one  character 
(e.g.,  AND,  TO,  PRINT,  etc.)  since  they  will  cause  an 
overspill  into  the  next  line  of  the  display,  although  they  will 
clear  themselves  as  the  program  proceeds  because  of  the 
trailing  space  PRINTed  when  keywords  are  PRINTed. 

Line  70  is  fairly  complex:  To  prevent  changing  the  contents 
of  string  AS,  the  entire  contents  in  the  first  pair  of  parentheses 
are  treated  as  one  long  string  consisting  of  32  spaces  followed 
by  the  message  string  AS,  followed  in  turn  by  another  32 
spaces.  The  sheer  in  the  second  pair  of  parentheses  selects 
which  parts  of  this  long  string  are  PRINTed.  Note  that  AS  still 
retains  its  own  identity.  Whichever  parts  are  selected,  the 
string  PRINTed  is  always  32  characters  long. 

As  it  stands,  the  program  has  no  facility  for  you  to  change 
the  message  once  it  is  running — ^you  have  to  use  BREAK  and 
then  RUN  the  program  once  again.  One  way  of  providing  this 
facility  is  to  add  this  line,  so  that  on  pressing  “1”  (EDIT)  the 
program  restarts  automatically: 

es  IF  lNKEY$a”l’*  THEN  GOTO  10 
Move  the  elements  of  the  array  around.  Try  this  program: 
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le 

Sfb 

30 

4.0 

50 

60 

70 


DIH 

FOR  R=1  TO  32 
LET  R$  («)«•■+•■ 

PR  XNT  RT  2© 0.:  R  $ 
LET  R$  (fi)  “ 
NEXT  fl 
GOTO  20 


This  method  gives  us  great  flexibility.  We  can  handle 
strings  quickly  and  efficiently  with  the  computer’s  string¬ 
handling  facilities.  Strings  are  very  useful  for  storing  informa¬ 
tion;  this  information  may  be  accessed  quickly  and  conveniently 
as  compared  to  REM  statements,  for  example,  and  the  speed 
with  which  strings  may  be  PRlNTed  makes  them  an  attractive 
method  for  producing  displays.  The  main  disadvantage  is  that 
they  are  wasteful  of  memory  since  the  information  is  held  in 
both  the  display  file  and  the  arrays  involved,  and  possibly  in 
the  program  area  as  well.  Here  is  a  moving  display  program 
which  relies  on. information  in  the  strings  PRlNTed. 


BASIC  Invaders 


Hie  program  is  called  BASIC  Invaders  because  it’s  a  version 
of  the  arcade  game  written  in  BASIC.  It  is  very  simplified  of 
necessity  and  is  included  for  the  purpose  of  demonstrating  the 
use  of  strings  for  moving  display  purposes.  A  row  of  invaders 
(inverse  -f-)  descends  the  screen  toward  you  (inverse  A).  You 
can  move  left  or  right  using  the  5  and  8  keys  respectively. 
You  fine  up  at  the  invaders  by  pressing  the  7  key.  If  you  are 
directly  under  an  invader,  it  disappears  and  is  destroyed. 
However,  if  you  fire  when  there  is  no  invader  above,  then  a 
new  invader  appears  to  penalize  you.  There  are  seven  waves 
of  invaders,  and  you  have  to  destroy  them  all  to  win. 


1 

a.0 

20 

30 

4.0 

60 

60 

70 

80 

90 


rEM - BRSIC  INUfl£>ERS-~ 

QXM  R1l(32) 

DJM  B$(32> 

FOR  D=1  TO  7 

LET  R$la="+  +  +  + 

+  4-  •• 

LET  XssINT  (RND*32) 

LET  C=X 

PRINT  RT  S..  0.;  “URUE;  •*;  D 
LET  C-0 

FOR  B=D+9  TO  19  STEP  2 


+ 
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100  FOR  fiss0  TO  31 

110  LET  X=X+ ClNKEY*ss"8''  RMD  X<3 
1) ~ (INKEY**"S“  RND  X>0) 

120  PRINT  RT  B..0.;R$;RT  20j,C;"  *’ 

RND  C  <  >X;  RT  20..  X.;  “R” 

130  IF  R$=B$  THEN  GOTO  2eO-f<  CB0 
RND  D=7) 

14.0  LET  C=tX 

1S0  IF  INKEY  $  Si"  7"  THEN  LET  R$  (X 
+  1)  sCHRSi  C21  RND  (X4^±i  > 

160  NEXT  R 

170  PRINT  RT  B..0.;B|; 

180  NEXT  B 
190  GOTO  24.0 
200  FOR  B=1  TO  S0 
210  NEXT  B 

220  PRINT  RT  20  .  C.;  "  " 

230  NEXT  D 

24.0  PRINT  "OOPS.  .  .THEY  LRNDED" 
250  STOP 

260  PRINT  "RLL  DESTROYED'* 


The  program  is  very  wasteful  of  memory.  No  attempt  has 
been  made  to  conserve  memory,  and  you  may  be  able  to 
speed  it  up  with  some  minor  modifications.  The  two  strings 
of  interest  are  AS  and  BS.  BS  is  merely  set  up  to  32  spaces  and 
is  used  to  prevent  typing  in  “(32  spaces)”  at  various  points  in 
the  program.  AS  is  the  string  that  represents  the  invaders.  It  is 
initially  set  to  32  elements,  the  number  of  characters  in  one 
line  of  display.  Line  40  sets  the  initial  state  of  the  characters 
and  can  be  any  combination  of  spaces  and  +  and  should 
consist  of  32  characters.  X  is  the  variable  that  controls  your 
position  and  its  value  is  altered  in  line  1 10.  Line  120  performs 
the  main  PRINTing,  updating  the  invaders  display  and  your 
position. 

Line  130  compares  the  invaders  with  a  string  of  32  spaces 
(BS),  and  if  it  finds  that  AS  contains  no  invaders  (i.e.,  it  is  all 
spaces),  it  either  causes  a  jump  to  the  next  wave  of  invaders 
or,  if  you’re  already  on  the  last  wave,  it  causes  ^  jump  to  the 
victory  message  at  line  260.  Line  150  is  of  particular  interest, 
since  it  scans  the  string  for  the  character  above  you  in  the 
invader  display,  and  if  it  finds  a  +  there,  it  converts  it  to  a 
space,  or  vice  versa.  This  is  only  done  if  the  7  key  is  pressed. 

The  rest  of  the  program  is  mainly  concerned  with  timing  of 
loops,  sorting  out  the  different  waves  of  invaders.  Line  100 
controls  the  rate  at  which  the  invaders  descend  down  the 
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screen.  This  may  be  altered  to  provide  a  handicap  facility  if 
you  like.  As  it  stands,  the  program  tends  to  speed  up  (delib¬ 
erately)  as  the  game  goes  on  by  means  of  the  D/3  in  line  100. 
Again,  change  this  if  you  like,  to  achieve  a  different  effect. 
An  alternative  is  to  add 

2  PRINT  ••ENTER  SKILL  LEUEL  (3 
0  -  100? ” 

3  If4PUT  E 

^  TE  E  <  w0  OR  E  100  THIEN  GOT O 
3 

100  FOR  R=©  TO  E 

If  you’re  storing  the  entire  screen  in  a  string  array  (or  a  part 
of  the  screen  involving  lines  above  or  below  each  other),  then 
you  can  utilize  two  different  methods  using  different  types  of 
array.  Consider  the  case  of  the  full  22-by-32  screen.  You  will 
require  a  22-  by  32-element  string  array,  and  this  may  be 
accomplished  by  either  (Mie  of  these  methods: 

1.  Using  a  two-dimensional  array,  set  up  with  the  statement 
DIM  AS(22,32).  You  can  then  use  the  PRINT  AT  coordi¬ 
nates  to  access  the  elements,  remembering  that  the  array 
elements  start  with  1 ,  and  PRINT  coordinates  with  0.  For 
example,  to  PRINT  AT  Y,X;CHRS  T  you  would  say  LET 
AS(Y  4- 1  ,X  + 1)  =  CHRS  T.  The  problem  with  this  method 
is  that  a  lengthy  PRINT  statement  is  required  to  place  the 
entire  array  on  the  screen,  i.e.,  PRINT  AT  0,0;AS(1), 
A8(2),AS(3)  .  .  .  AX(21),  AS(22).  However,  since  the 
main  reason  for  using  an  array  for  printing  is  the  ease  of 
access  of  information,  this  is  only  necessary  at  the  very 
beginning  of  a  program  since  from  then  on  we  need  only 
PRINT  the  parts  of  the  array  we’re  actually  dealing  with. 
Take  the  example  of  a  game  of  checkers.  We  would  need 
the  entire  board  on  screen  at  the  start  of  the  game,  and 
we  must  be  able  to  examine  the  board  in  its  entirety; 
however,  when  it  comes  to  PRINTing  moves,  we  need 
only  PRINT  the  parts  of  the  array  which  are  changed  by 
a  move — the  part  of  the  array  from  which  the  piece  was 
moved,  the  part  to  which  it  is  moved,  and  possibly  a  part 
of  the  array  where  an  opposing  piece  was  captured. 

2.  Use  a  single-dimension  array  with  704  elements  for  the 
22-by-32  display,  set  up  by  the  statement  DIM  AS(704). 
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This  can  be  treated  like  a  memory-mapped  screen  PRINTed 
in  one  go  by  the  statement  PRINT  AT  0;0;A8  and  which  is 
very  fast  to  execute.  The  elements  are  easily  accessed.  To 
move  a  character  on  screen  we  have  to  move  it  about  in  the 
array  in  a  manner  which  makes  it  move  satisfactorily  on 
screen.  To  understand  how  to  do  this  we  have  to  understand 
the  layout  of  the  array  on  the  screen.  Here  is  a  diagram: 


X 

0 

1 

2  i 

i  29 

30 

31 

Y 

j 

{ 

0 

AS(1) 

AS(2) 

AS(3)  ^ 

/aS(30) 

AS(31) 

AS(32) 

1 

AS(33) 

AS(34) 

AS(35)  ^ 

)  AS(62) 

AS(63) 

AS{64) 

2 

AS(65) 

AS(66) 

AS(67)  f 

^  AS(94) 

AS{95) 

AS(96) 

3 

AS(97) 

AS(98) 

AS(99)  \ 

{aS(126) 

AS{127) 

AS(128) 

The  diagram  shows  a  fragment  from  the  top  of  the  screen. 
Y  and  X  are  the  coordinates  of  the  PRINT  AT  Y,X;  function. 
Can  you  see  how  the  Y,X;  coordinates  can  be  related  to  the 
subscripts  of  AS?  There  are  32  elements  of  AS  in  each  line  of 
the  display.  The  X  coordinates  start  off  at  0,  whereas  the  array 
subscripts  start  at  1 .  So  Y,X  corresponds  to  AS(Y*32  +  X  -I- 1 ). 
When  a  character  is  moved,  it  can  go  to  one  of  eight  locations 
all  around  it,  as  shown  in  the  diagram  below: 


1 

8^2 


6  f  4 
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Now  suppose  the  +  is  at  AS(A).  Here  is  a  chart  showing 
how  much  the  difference  is  between  subscripts  of  the  ele¬ 
ments  representing  the  possible  positions  on  all  sides  (how 
much  to  add  to  the  old  subscript  to  make  it  the  new  onei 


DIRECTION 

OF  MOVEMENT 

HOW  MUCH  TO 
ADD  TO  A 

1 

-32 

2 

-31 

3 

1 

4 

33 

6 

32 

6 

31 

7 

-1 

8 

-33 

At  this  stage  we  have  to  be  careful  not  to  go  beyond  the 
limits  of  the  array,  as  we  would  when  using  PRINT,  to  avoid 
crashing  the  program  with  a  subscript  error.  We  can  use  the 
cursor  keys  to  control  vertical  movement  and  horizontal  move¬ 
ment,  and  use  the  SHIFTed  cursor  keys  for  diagonal  move¬ 
ment.  To  illustrate  how  this  may  be  done,  here  is  a  short 
program  which  moves  a  +  around  the  screen  under  cursor 
control. 

Pressing  shift-5,  shift-6,  shift-7,  and  shift-8  moves  you  45° 
clockwise  in  the  direction  of  the  arrows  on  the  keys.  The  5, 
6,  7,  and  8  keys  by  themselves  cause  movement  in  the 
direction  of  the  arrows.  This  program  does  not  have  the 
facility  to  prevent  subscript  errors  occurring  because  of  char¬ 
acters  that  are  moved  outside  the  boundaries  of  the  array. 


10  DIM 

20  L.ET  R  =  INT  fRND*^'?04.3  -l-l 
30  LET  *• 

4.0  LET  R«H-C3a  FIND  INKEY*a’*7") 

-(31  FIND  INKEY^bCHR*  112)  +  tl  RND 

INKEY$-“©**)  <-(33  RND  INKEV'S^CMg* 

115) +(32  RND  INKEY$““6") + (31 
D  INKEY^ssCHR*  1133  -(1  FIND  INK^» 
-  (33  pinD  INKEYS=CHR*f  114-) 

50  LET  fi*(Fi)=t”  +  ” 

©0  PRINT  RT  0^0.:  FI® 

70  GOTO . 30 


120 


MASTERING  YOUR  TIMEX  SINCLAIR  1000 


The  reason  that  shift-5,  shift-6,  shift-7,  and  shift-8  have 
been  represented  by  CHRX  114,  CHRS  1.13,  CHRS  112,  and 
CHR8  115  is  that  they  cannot  be  entered  directly  from  the 
keyboard  (they  act  as  cursor  controls  if  you  tty),  so  the 
easiest  way  to  get  them  in  is  by  means  of  CHRS. 

It  should  be  emphasized  that  the  use  of  strings  to  create 
moving  graphics  is  limited  to  those  applications  where  speed 
is  not  of  great  importance.  It  is  very  useful  in  applications 
where  the  access  of  information  is  important,  but  speed  of 
graphics  is  not  of  highest  priority;  an  example  is  a  board 
game  such  as  checkers,  where  pieces  move  occasionally  but 
rapid  access  to  information  is  not  necessary. 


CHAPTER  14 
Introduction  to  arithmetic 
on  the  computer 


Have  a  quick  glance  at  this  section  before  you  read  it 
in  detail.  You  may  well  find  it  has  no  new  information 
for  you.  If  this  is  the  case,  feel  free  to  turn  to  the  next 
section. 

The  symbols  for  the  various  operations  in  BASIC  are 
probably  well  known  to  you  by  now.  They  are  multiply  (*), 
divide  (/) ,  subtract  ( - ) ,  add  (  +  ),  raise  to  the  power  (*  *  -  shift- 
H).  The  computer  follows  a  strict  priority  for  operations. 

The  term  priority  refers  to  the  order  in  which  expressions 
are  evaluated.  The  computer  does  not  necessarily  evaluate 
things  in  the  order  in  which  they  are  printed  on  the  screen. 
For  example,  you  may  have  noticed  that  putting  an  expres¬ 
sion  in  parentheses  could  produce  a  different  result  compared 
with  the  same  expression  evaluated  with  the  parentheses 
omitted  (indeed,  leaving  out  parentheses  may  cause  the 
computer  to  give  you  a  syntax  error).  We  formalize  this  by 
giving  each  operation  a  priority,  a  number  between  1  and 
16. 

The  operations  with  highest  priority  are  evaluated  first,  and 
operations  with  equal  priority  are  evaluated  in  order  from  left 
to  right.  In  effect,  the  computer  looks  at  the  expression  and 
finds  the  part  with  the  highest  priority,  and  “says”:  “Wait  a 
minute,  fellers,  there’s  something  with  a  higher  priority  than 
you  over  there — ^I’ll  come  back  to  you  in  a  minute  when  it’s 
your  turn.” 

Here  is  a  list  of  various  operations  arid  their  priorities: 

121 


122 


MASTERING  YOUR  TIMEX  SINCLAIR  1000 


Operation  Priority 


0  16 

SUBSCRIPTING/SLICING  12 

ALL  FUNCTIONS  11 

**  10 

-  (negation)  9 

*  8 

/  8 

+  6 

-  (subtraction)  6 

=  ,>,<,<  =  ,>  =  ,<>  5 

NOT  4 

AND  3 

OR  2 


Note  that  a  number  is  assumed  to  be  positive  unless  it  is 
preceded  by  a  minus  sign.  Similarly,  unless  a  decimal  point 
appears  within  a  number,  the  computer  will  assume  it  is  an 
integer.  Although  you  can  use  decimal  points  when  working 
with  the  computer,  commas  are  not  allowed.  The  use  of 
scientific  notation  for  very  large  and  very  small  numbers  was 
explained  in  the  section  on  variables.  Refer  back  to  that 
section  if  you  need  a  reminder  on  how  this  works. 

Compared  with  the  time  it  would  take  you  to  work  out  a 
calculation  using  a  pen  and  paper,  the  computer  works  very 
quickly,  as  can  be  seen  by  running  the  following  programs. 
The  first  program  in  this  section  works  out  arithmetic  pro¬ 
gressions.  Yoj  must  enter  the  first  term,  the  common  differ¬ 
ence,  and  the  number  of  terms,  and  the  computer  will  produce 
the  information  for  you  very  rapidly. 

10  REM  RRITHMETIC  PRDGftESSXOH 

2©  PRXWT  "I  UICL.  UORK  OUT  FOR 

YOU  THE** 

3©  PRIWT  **RRXTHriETlC  PROGRESS  I 
ON  FROM  THE** 

4.©  PRINT  ••INFORMRTION  YOU  GIUE 

ME" 

4.S  PRINT 

5©  PRINT  ••ENTER  THE  FIRST  TERM 

«< 

60  INPUT  FIRST 

70  PRINT  , FIRST 
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60  PRINT  "RND  THE  COHHON  DIFFE 
PENCE?  •• 

90  INPUT  DiFF 
100  PRINT  ,  CIFF 
11©  PRINT  "HOU  HRNY  TERMS?” 

120  INPUT  TERMS 
130_LET  TERMS  =  INT  CTERMS.+  .55 
1^0  CImS 
IS©  SCROL.L. 

160  PRINT  "RRITHMETIC  PROGRESS I 
ON** 

17®  SCROL-i. 

16®  PRINT  **TeHH  NUMBER**  ;TRB  13; 
••URLUE" 

19©  L.ET  COUNTit© 

20©  FOR  i_=0  TO  TERMS -1 
2  L.HT'  *  J  :=rjL  *5-  X 

220  LET  0«FIRST+ CL^DIFF) 

230  LET  COUNT =C0UNT+0 
235  SCROLL 

24-0  PRINT  TRB  4.;U;TRB  13;  Q 
2S0  NEXT  L 
260  SCROLL 

270  PRINT  TRB  4-;  "THE  SUM  IS  ** ;  C 
OUNT 


I  UILL  UORK  OUT  FOR  YOU  THE 
RRXTHMETIC  PROGRESSION  FROM  TME 
XNFORMRTION  YOU  G3CUE  ME 


ENTER  THE  FIRST  TERM 

66 

BHD  THE  COHHON  DIFFERENCE? 

3 

HOa  MRNV  TERMS? 


RRITMHETIC  PROGRESSXOH 
TERM  HUMBER  URLUE 
1  06 

2  69 


3 

4- 

5 

6 

7 

8 

9 

10 


72 

75 

76 
81 
84- 
87 
90 
93 


11  96 

12  99 
TME  SUM  IS  990 
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As  you  can  see,  the  program  also  works  out  the  sum  of  the 
terms: 

I  Ult-L.  WORK  OUT  FOR  VOU  THE 
RRITHMETIC  PROGRESSION  FROM  THE 
INFORMRTION  VOU  GIUE  ME 

ENTER  THE  FIRST  TERM 

,  @@•34- 

RND  THE  COHHON  DIFFERENCE? 

. @©@12 

HOW  MfiKT  TERMS? 

S 


RRITHMETIG  PROGRESSION 
TERM  NUMBER  URL.UE 

1  .@©34- 

2  .©0352 

3  .@©364. 

4-  .  ©©ST'S 

5  . ©S3SS 

to  .  004. 

THE  SUM  XS  ,0£22 

Prime  numbers  are  very  easy  to  determine; 

le  REM  »»  PRIME  HUMBER 
SB  PRINT  "ENTER  THE  UREUE  OF  T 

HE" 

30  PRINT  "  MRXXHUM  PRIME  NUHBE 

4-0  PRINT  TRB  4.;  "THRT  YOU  WRNT" 
SO  INPUT  R 
60  DIM  Z  CR> 

TO  FOR  U=:l  TO  ft 
75  LET  Z  CJO  =U 
80  NEXT  Jf 

85  IP  R<4.  THEN  GOTO  20® 

90  LET  Z  C4.J  «S 
95  LET  KL=4. 
iOO  LET  IZaS 
118  LET  IZaIZ+2 
ISO  IP  IZ>R  THEN  GOTO  200 
125  LET  UOaR 
130  LET  EX=IZ^'ZCUO  +  lJi 
14.0  IP  EXaINT  (EX>  THEN  GOTO  II 
a 

EX<2<UQ-H>  THEN  GOTO  180 
160  LET  «JOav.lD4-l 
170  GOTO  130 
180  LET  KLaKL+1 
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18S  LET  Z  tKLi  =1Z 
190  GOTO  lie 
200  CLS 

220  PRIKT  “THE  RRJHE  HUHBERS  UR 
TO  “  ;  R 

230  PRINT  TRB  4. ;  “PRIME  NO-"^"PR 
IME" 

24.0  FOR  C=1  TO  KL. 

250  PRINT  TAB  4.;C,ZfC> 

2S0  IF  1©»INT  fCylB)  -C.  THEN  INF 
UT  U% 

270  IF  1S»INT  CCyl6>  =0  THEN  CLS 
280  NEXT  C 

The  mathematical  ability  of  the  computer  can  also,  of 
course,  be  turned  to  produce  other  kinds  of  information. 

This  next  program,  a  series  of  statistical  routines,  can 
easily  be  broken  down  into  four  shorter  programs,  by  entering 
the  line  numbers  from  1000  to  1500,  2000  to  2510,  3000  to 
3510  or  4000  to  4100.  You’ll  also  have  to  assign  COUNT  and 
TOTAL  for  each  program. 

The  four  programs  are; 

Arithmetic  meanj  which  is  simply  the  average  of  a  set  of 
numbers. 

Geometric  mean,  which  is  the  nth  root  of  the  product  of  the 
■  numbers,  where  n  is  the  total  number  of  numbere  entered. 
Harmonic  mean,  which  takes  the  reciprocal  of  the  arithmetic 
mean  of  the  reciprocals  of  the  numbers  entered. 

Factorial,  which  is  the  progression  A*(A  -  1)*(A  -  2)*(A  -  3) 
.  .  .  dovwi  to  *{2)*(1),  where  A  is  the  integer  entered  in  line 
4030.  As  this  only  worics  with  integers,  line  4040  changes 
any  noninteger  entry  into  an  integer. 

The  routine  from  line  9000  presents  a  menu  of  choices.  Note 
the  use  of  GOTO  A*  1000  in  line  9600.  This  is  a  short  way  of 
saying 

IF  A  =  1  THEN  GOTO  1000 
IF  A  =  2  THEN  GOTO  2000 
IF  A  =  3  THEN  GOTO  3000 
IF  A  =  4  THEN  GOTO  4000 

You  can  often  make  use  of  this  technique  in  menu-driven 
programs. 
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lO  REM  STRTISTICftL  PROGRAMS 
20  REM  BY  KEN  MRHOGRNY 
30  GOTO  9000 
i©00  REM  RRITMMETJC 
1010  PRINT  ••ARITHMETIC  .MEAN** 

1020  PRINT  "ENTER  THE  NUMBERS  yi? 
U  WISH  HE" 

1030  PRINT  TAB  5;  “TO  RUER.AAE  .Flip 
YOU” 

104.0  PRINT  "ENTER  E  TO  END  YOUR 
INPUT” 

1060  INPUT 

1070  IF  0*=”E”  THEN  GOTO  14.00 
10S0  PRINT  O*; " 

1090  L.ET  TOTAL  s=TOTftL.+yRL- 
1100  LET  COUNT  sCOUNT -1*1 
1110  GOTO  1060 
14.00  PRINT 
14.10  PRINT 

1600  PRINT  ''THE  AR ITMMET XC  MEAN 

IS  "; TOTAL yCOUNT 

1510  GOTO  9000 

2000  REM  GEOMETRIC  MEAN 

2010  PRINT  "GEOMETRIC  MEAN" 

2020  PRINT  "ENTER  THE  NUMBERS  Yr* 
U  UISM  ME” 

2030  PRINT  "TO  USE  TO  FThtD 
TRIG  MEAN" 

204.0  PRINT  "ENTER  E  TO  END  YOUR 
INPUT" 

2050  LET  TOTAL a 1 
2060  INPUT  0$ 

2070  IF  0*=!"E"  THEN  GOTO  2600 
2075  PRINT  Ol^;  "  "; 

2060  LET  COUNT =COUNT+l 
2090  LET  TOTAL  aTOTAL^UAL  Oj| 

2100  GOTO  2060 
2500  PRINT 

2510  PRINT  "THE  GEOMETRIC  MEAN  I 

3  ■*.; TOTAL**  Cl yCOUNTJ 

2520  GOTO  9000 

3000  REM  HARMONIC  MEAN 

3010  PRINT  "HARMONIC  MEAN” 

3020  PRINT  "ENTER  THE  YO 

U  WISH  ME" 

3030  PRINT  "TO  USE  TO  FIND  NARMD 
NIC  MEAN’* 

304.0  PRINT  "ENTER  E  TO  END  YIUIR 
INPUT" 

3050  INPUT  0«l 

3060  IF  Oi="E"  THEN  GOTO  3600 
3080  PRINT  ”  "; 

3090  LET  TOTAL«TOTAL^.l‘lyUAL 
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3100  LET  COUNT =COUNT+l 
3110  GOTO  3050 
3500  PRINT 

3510  PRINT  "THE  HRRHONIC  .iS^ERN  _T^ 
CTOTRL ✓COUNT) 

35S0  GOTO  9000 
4-000  REH  FftCTORIftL 
4.010  PRINT  ••FRCTORX9L” 

4-0S0  PRINT  "ENTER  RN  INTEGER" 

4-030  INPUT  NUH 

4-04-0  LET  NUM  =  INT  CNUH) 

4-050  LET  Rasl 
4.060  FOR  B  =  1  TO  NUH 
4-070  LET  RsR^B 
4-060  NEXT  B 
4-090  PRINT 

4-100  PRINT  "THE  FRCTORIRL  OF  ".:.N 

UM ; "  IS  ” ; R 

4-110  GOTO  9000 

6990  STOP 

9000  PRINT 

9005  PRINT  "SELECT  THE  PROGRRH  Y 
OU  WRNT" 

9010  PRINT  "1  -  RRITHHETIC 

90S0  PRINT  "S  -  GEOHETRJC  .HERN" 

9030  PRINT  "3  ~  HRRMONXC  HERN" 

904-0  PRINT  "4-  -  FRCTORIRL" 

904-5  PRINT  ^  "5  TO  ENP" 

9050  INPUT  R 

9060  IF  R<1  OR  R>5  THEN  GOTO  905 
0 

9062  IF  R=5  THEN  STOP 
9065  CLS 

9500  LET  TOTAL =0 
9510  LET  COUNTS© 

9520  PRINT 
960©  GOTO  R»100© 


The  final  program  in  this  section  uses  the  computer  to 
simulate  the  life  cycles  of  two  species,  one  of  which  preys 
upon  the  other,  and  to  graph  their  relative  populations.  The 
relationship  between  the  two  species  is  controlled  by  a  differ¬ 
ential  equation.  You  enter  the  starting  populations  as  numbers 
between  1  and  5.  Fractions  ate  acceptable,  and  it  is  fascinat¬ 
ing  to  enter  a  very  low  population  for  one  of  the  animals  and 
a  high  one  for  the  other,  and  watch  the  two  evolve.  When  the 
program  has  run  through  a  specified  number  of  generations,  it 
will  stop.  This  is  so  you  can  enter  another  starting  population 
for  the  first  species.  Press  ENTER,  and  you  can  now  enter 
tile  starting  level  of  the  second  species.  The  development  of 
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tills  relationship  will  then  be  graphed,  on  top  of  the  existing 
graph,  so  you  can  build  up  a  number  of  graphs  showing  the 
effects  of  different  starting  populations  for  Ae  predator  and 
its  prey. 


%&  REH  SPECXES 
as  PRINT  ''HQU  liRNY 


OF  SPECIES 


ONE?** 

3©  INPUT  X 

4.S  PRINT  '‘RND  Or  SPECIES  TUO? 
5©  INPUT  Y 
5S  CL.S 

e.@  FOR  Z  =  3.  TO  a© 

70  FOR  T=1  TO  7  STEP  .S 

8©  PRINT  RT  1,1.:  XNT  fX-flSSOSA 
»«  •* 


90  PRINT  RT  a,l;INT  (Y»i©©0@>  ; 
*% 


108  LET  X=:X-I- t4.rX-S«-X5tY>  »©.©! 

110  LET  Y=:Y+ <X*Y~3«S'  }  ,01 

120  PLOT  6«^X,.6»Y 

13©  NEXT  T 

14.0  NEXT  Z 

150  INPUT  X 

160  INPUT  Y 

17©  GOTO  6© 


Functions 


The  computer’s  dialect  of  BASIC,  like  other  BASICs, 
contains  a  number  of  preprogrammed  functions  which  you 
can  use  in  a  program,  or  in  the  direct  mode.  The  following 
discussion  includes  a  program  which  uses  a  defined  function 
to  draw  a  picture  of  a  bat! 

General  functions  are  as  follows: 

ABS  This  function,  ABSolute,  gives  the  value  of  X,  ignoring 
the  sign,  so  that  if  X  is  -10,  ABS(X)  would  be  10.  Simi¬ 
larly,  if  X  is  10,  ABS(X)  is  still  10. 

INT  itie  INT  function  gives  the  whole  number,  or  INTeger 
part  of  a  number,  giving  the  largest  number  which  is  not 
greater  than  X.  If  X  is  2.42,  INT(X)  would  be  2. 

INT  rounds  off  numbers  to  the  next  lowest  whole  number, 
e.g.,  INT  2.2  is  2,  INT  2.9  is  2,  INT  2  is  2,  and  so  on.  A 
frequent  requirement  is  to  round  off  numters  to  the  nearest 
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whole  number,  so  that  2.6  becomes  3,  etc.  (Some  commands 
do  this  automatically,  e.g.,  PRINT  AT,  POKE.)  This  is  quite 
easy  to  do.  Suppose  the  number  to  be  rounded  off  is  A.  If  we 
first  add  0.5  to  A  Md  then  apply  INT,  the  answer  will  be  the 
nearest  whole  number.  If,  as  an  example,  A  was  2.6  and  we 
wished  to  round  off  to  the  nearest  whole  number,  PRINT  INT 
(2.6 +0.5).  would  give  3,  whereas  PRINT  INT  (2.3 +  0.5) 
would  give  2.  PRINT  INT  (2.5 +  0.5)  is  rounded  up  to  3. 

It  is  often  necessary,  when  carrying  out  calculations  with 
money,  to  have  answers  to  two  decimal  places,  to  resemble 
dollars  and  cents.  The  following  routine  does  this,  adds  the 
dollar  sign,  and  lines  up  the  numbers  with  the  decimal  points 
underneath  each  other.  You  might  like  to  try  adding  a  version 
of  this  to  the  compound  and  simple  interest  program  given 
earlier  in  the  book. 

10  INPUT  R 

2©  l_ET  R$=^STR*  (XNT  <R*X®®-*-@.S 
)  ,-  l©0) 

25  IF  R$t  THEN  LET  R$  =  '*© 

”  +R* 

3©  LET  B=LEN  R$-LEN  STR$  INT  U 

RL  R$ 

4.0  LET  R$=rR$+ .00“  RND  B=0)  +  ( 
•*©“  RND  B=2) 

50  PRINT  TRB  10-LEN  STR*  INT  U 

RL  R«;  R* 

60  GOTO  10 


$4.4.4.  .  @0 
$88 . 70 
$98 , 5© 
$0.05 
$44.54 
$0.09 
$4.00 
$4.3© 


^  10  INPUT  R 

20  LET  R$=:STR$ 

) /10e) 

25  IF  ft$ (1) . “ 

30  LET  B=LEN  R$ 

40  LET  R$=R$+t' 
‘’0”  RND  B=2) 

50  PRINT 
60  GOTO  10 


(INT  (ft»100+0.B 
THEN  LET  «$«’*© 
-LEN  STR$  INT  U 
.00**  RND  B*0)  +  f 
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RND  This  is  used  to  generate  a  RaNDom  number.  RND 
gives  a  random  number  between  0  and  1 . 

SGN  This  function  returns  the  SiGN  of  the  variable  in  paren¬ 
theses,  the  SiGN  of  the  argument  as  this  variable  is  known. 
If  X  equals  20,  that  is,  X  is  a  positive  number,  then  , 
SGN(X)  =  1 ,  SGN(  -  20)  =  - 1 ,  and  SGN(O)  =  0. 

TAB  As  pointed  out  earlier  in  the  book,  this  is  the  TABulat- 
ing  function,  which  moves  the  PRINT  position  across 
the  line  the  number  of  spaces  indicated  by  the  argument 
of  the  function.  Thus,  PRINT  TAB(6);“$”  will  print  the 
$  at  the  seventh  position  across  from  the  left-hand  edge, 
while  PRINT  TAB(13);“$”  will  print  it  14  spaces  across. 
The  direction  down  and  across  the  screen  can  be  specified, 
as  was  pointed  out  earlier,  by  using  PRINT  AT.  Thus 
PRINT  AT  4,9,  “S”  will  print  a  dollar  sign  on  the  fifth  line 
down,  in  the  tenth  position  across.  TAB  reduces  a  number 
modulo  32,  meaning  that  the  argument  of  (number  after) 
TAB  can  be  larger  than  31;  it  will  be  reduced  to  a  number 
in  the  range  0  to  31,  and  the  PRINT  position  moves  on  the 
same  line  unless  this  would  involve  backspacing,  in  which 
case  it  moves  on  to  the  next  line.  Modulo  means  that 
the  argument  of  TAB  is  divided  by  32  (the  number  of 
columns  per  line  on  a  screen)  and  the  remainder  taken. 
You  may  be  able  to  take  advantage  of  this  when  the  PRINT 
spacing  is  determined  by  calculation  since  you  do  not 
have  to  ensure  that  the  number  falls  in  the  range  from 
0  to  31. 

EXP  This  function  gives  the  value  of  e  (the  constant  which 
governs  exponential  change,  approximately  equal  to  2.718, 
which  you  can  see  by  asking  the  T/S  1000  to  PRINT  EXP 
1)  raised  to  the  power  of  the  argument,  so  PRINT  EXP  5 
will  give  148.41316. 

LN  LN  X  yields  the  natural  logarithm  to  base  e,  so  PRINT 
LN  5  gives  1.6094379. 

SQR  This  function  yields  the  SQuare  Root  of  a  number,  so 
when  X  is  S'  PRINT  SQR  X  gives  2.236068. 

Here  is  a  listing  of  trigonometric  functions: 

SIN  This  gives  the  sine  of  an  angle  in  radians.  SIN  5  yields 
-0.95892428. 
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COS  Yields  the  cosine  of  an  angle  in  radians.  PRINT  COS  X 
where  X  equals  5  gives  0.28366219. 

TAN  Produces  the  tangent  of  angle  X  in  radians.  (The 
computer  measures  angles  in  radians.  PI  radians  equals 
180^) 


CHAPTER  15 
PEEK  and  POKE 


These  two  commands  are  very  powerful  instructions  that 
enable  you  to  do  things  with  your  computer  that  you  might 
not  be  able  to  do  otherwise.  Let  us  start  by  defining  the  two 
terms: 

1.  PEEK  m  gives  us  the  number  stored  at  address  m  in 
memory. 

2.  POKE  m,n  puts  number  n  into  memory  at  address  m. 
When  the  number  is  accepted,  it  erases  what  used  to  be 
there. 

The  term  ADDRESS  needs  explaining.  A  computer  like 
yours  thinks  and  remembers  in  numbers,  not  in  words  as 
people  do.  Certain  patterns  of  numbers  make  certain  parts  of 
the  computer  do  certain  things.  This  is  called  a  program.  The 
computer  needs  a  way  to  hold  all  these  numbers  so  that  they 
are  remembered  and  can  be  looked  at  when  needed.  Once  the 
computer  knows  their  values  and  patterns,  it  can  decide  what 
it’s  going  to  do. 

Certain  patterns  of  numbers  may  make  the  computer  PRINT 
something  on  the  screen,  add  two  numbers  together,  or  crash 
if  the  pattern  of  numbers  makes  it  try  to  do  something  it  can’t 
or  shouldn’t.  The  computer  can’t  just  place  the  numbers 
anywhere — this  would  cause  chaos  if  it  didn’t  know  where  to 
look  next.  So  there  is  a  method  used  whereby  everything  can 
be  neatly  organized. 

Imagine  that  you  wanted  to  display  a  message  in  public, 
and  you  had  the  words  written  on  little  placards  with  hooks 
on  them,  ready  for  all  occurrences,  so  that  you  could  display 
any  message  simply  by  hanging  up  the  right  set  of  placards. 
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For  example,  if  we  wanted  to  display  this  message;  “BE¬ 
WARE  ROAD  WORKS,”  we  need  the  placards 


We  also  need  a  boanl  on  which  to  hang  up  these  words.  If 
wc  start  with  the  first  hook  by  hanging  the  first  placard  there 
and  proceed  along  the  board,  we  end  up  with  a  fairly  neat 
sign; 


The  pegs  on  the  board  tell  us  where  each  word  is  hanging. 
This  can  be  compared  to  your  computer’s  memory.  There  are 
65535  places  where  we  can  “hang”  numbers  on  the  T/S,  but 
these  are  split  up  for  various  uses,  and  you  or  the  computer 
can  do  various  things  with  these.  These  “pegs,”  or  locations, 
or  whatever  you  want  to  call  them  are  actually  referred  to  as 
addresses  (the  home  of  each  number,  if  you  like).  How¬ 
ever,  if  the  T/S  has  a  number  it  wants  to  store,  it  can’t 
just  place  it  anywhere  because  it  might  upset  what’s  already 
there.  Let  us  now  look  at  the  addresses  and  how  they  are  laid 
out. 


ROM 

Unused 

IK  RAM 

SINCLAIR 

Not  normally 

inside 

16K  RAMPACK 

used 

the  ZX81 

if  fitted 

0  8192  16384  17408  32768  65536 

The  first  part,  called  ROM,  is  rather  special.  It  is  a  set  of 
instructions  that  tells  the  computer  how  to  do  various  func¬ 
tions  and  can  translate  or  interpret  the  lines  of  BASIC  you 
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enter  as  parts  of  a  program  into  numbers  thk  mean  something 
to  your  computer.  ROM  means  read-only  memory,  because 
its  contents  are  fixed  and  cannot  easily  be  altered  without 
destroying  it.  You  can  look  into  it  as  you  like,  and  this  is 
often  very  useful. 

The  second  part  is  unused  on  your  computer,  although  a 
little  design  trick  makes  it  look  like  a  copy  of  the  ROM.  This 
part  is  of  little  interest  to  us. 

The  part  which  is  of  most  interest  starts  at  16384.  This  part 
is  called  RAM,  short  for  random  access  memory.  Like  its 
name  suggests,  you  can  do  anything  to  any  part  of  this — you 
can  read  the  values  contained  in  any  address  or  put  a  new 
value  into  any  address. 

To  return  to  our  previous  example,  if  we  look  at  the  first 
peg  (PEEK  1),  we  find  the  word  BEWARE  there.  If  we  look 
at  the  second  peg  (PEEK  2),  we  find  the  word  ROAD  there, 
and  so  on.  Can  you  see  the  analogy?  Remember  that  the 
computer  would  use  numbers  rather  than  words,  but  the  idea 
is  still  the  same.  Similarly,  we  can  change  the  words  on  the 
pegs  quite  easily  by  using  POKE  to  stuff  a  new  number 
where  another  number  used  to  be.  We  could  do  something 
like  POKE  peg  2,  BUILDING,  which  would  put  the  word 
BUILDING  on  the  second  peg  of  the  notice,  and  thereby 
change  its  entire  meaning.  The  great  secret  about  PEEK 
and  POKE  is  not  what  they  do  but  how  to  use  them.  It’s 
all  very  well  finding  what  number  is  in  which  address  or 
stuffing  a  new  number  into  a  particular  address,  but  how 
can  you  make  use  of  this  in  a  program  and  how  do  you 
know  where  to  PEEK  and  POKE?  The  answer  is  that  you 
can  do  this  mainly  by  experience  and  by  reading  through 
other  people’s  programs,  although  you  will  find  that  as 
your  knowledge  of  computers  increases,  you  will  find  you 
think  up  new  ways  to  use  PEEK  and  POKE.  Before  we 
look  at  examples,  let  us  briefly  review  how  to  write  PEEK 
and  POKE  statements. 

PEEK  m.  m  is  the  address  which  we’re  looking  into,  m  is  a 
number  from  0  to  65560  (e.g. ,  PEEK  17000)  or  m  can  be  the 
result  of  a  calculation,  provided  it  is  a  number  in  the  range 
above,  PEEK  (Y*33  +  X+  I). 


PEEK  AND  POKE 


135 


POKE  in,n.  m  is  an  address  to  which  the  new  number 
is  to  be  placed,  as  with  PEEK.  It  is  written  between  the 
word  POKE  and  the  comma.  The  number  after  the  comma, 
n,  is  the  number  to  be  placed  in  address  m,  and  can 
be  a  number,  from  0  to  255  or  the  result  of  a  calculation, 
provided  it  is  a  number  from  0  to  255.'  You  can  actually 
make  n  a  negative  value  from  0  to  -255,  but  this  is  not 
very  useful. 

Let  us  now  look  at  some  examples  of  PEEK  and  POKE  in 
use. 


REM  statements 


Many  programs  rely  on  information  held  in  REM  state¬ 
ments  in  the  first  line  of  a  BASIC  program  on  the  computer. 
This  is  because  it  is  easy  to  access  and  is  very  economical  on 
memory.  The  important  point  is  that  the  address  of  the  first 
charajjter  after  the  word  REM  in  the  first  line  of  a  program  is 
16514.  So  if  you  had  the  program 

1  REM  RBCDEF 

2  PRJNT  PEEK  'lSSi4. 

it  would  print  the  number  38  on  the  screen.  This  is  the 
CODE  of  the  character  A,  so  address  16514  has  the  value 
of  38.  You  can  easily  change  this  value  by  POKEing  a 
new  value  into  16514.  For  example,  to  change  A  to  a  Z, 
look  up  the  CODE  of  Z,  which  is  63,  and  POKE  this  into 
16514: 

POKE  16E3.4..F3 

This  can  be  written  as  POKE  16514,  CODE  “Z”  which 
works  just  as  well.  The  next  address,  16515,  stores  the  B, 
16516  stores  the  C,  and  so  on. 

The  technique  of  PEEKing/POKEing  into  REM  statements 
is  also  of  great  importance  with  the  storage  of  machine-code 
programs.  This  is  an  important,  powerful  programming  tech¬ 
nique  and  you  are  recommended  to  learn  it  if  you  do  not 
already  know  about  it. 
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Using  the  timer 


ITie  timer  is  contained  in  addresses  16436  and  16437, 
and,  as  you  may  recall,  its  use  was  discussed  for  timing 
player  inputs.  Note  that  the  timer  counts  backwards,  starting 
from  65536.  Use  tiiese  two  statements  to  reset  it: 

POKE  164.-3S,25S 
POKE  5-64-3  7  ,  ass 


And  in  order  to  read  its  value,  we  have  to  use  this 
expression: 

LET  TXHE=6S536->PEEK  164-36 -2SS»PE 
EK  3.64.3T 

This  gives  us  an  answer  in  frames,  and  since  50  frames  are 
sent  to  the  TV  every  second,  we  need  to  divide  by  50  to  get 
an  answer  in  seconds,  as  follows: 


1_ET  T  IKE  =:  C65S36 -PEEK  164.36 -356  *P 
EEK  164.3”?) 

Here  is  a  program  to  provide  a  stopwatch: 


10  POKE  164-36,255 
20  POKE  164-37>  255 
30  PRINTT  RT  11, 14..;  INT  <  C65536 
PEEK  164.36 -256 #PEEK  164-37“)  .^50) 
4.0  GOTO  30 


The  INT  in  line  30  is  added  to  prevent  fractions  of  a 
second  being  printed.  This  stopwatch  keeps  fairly  accurate 
time  because  the  frame  counter  is  controlled  by  special 
hardware,  so  unless  the  program  deliberately  forces  it  to  do 
otherwise,  it  is  independent  of  how  fast  the  program  runs 
and  keeps  time  fairly  well,  even  if  the  speed  of  the  program 
only  allows  it  to  be  read  every  3  seconds.  The  counting 
range  of  the  frame  counter  only  allows  timing  for  just  under 
11  minutes.  If  you  want  a  readout  in  minutes  and  seconds, 
use  this  routine: 
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10  POKE  164^36  ^S55 
SO  POKE  164.37,  S5S 
30  LET  TIHE«  C6SS36-PEEK  164.36- 
S56*PEEK  16437) /SO 

40  PRINT  RT  11,1S;INT  CTIHE/SO 
J  •:  *  "•*  (TIME-INT  (TIME/60)  »60 

' SO  GOTO  30 


This  prints  the  minutes  elapsed  and  seconds  separated  by  a 
colon,  A  space  is  included  at  the  end  because,  as  the  seconds 
clock  from  59  to  0,  a  trailing  digit  may  be  left  on  the  screen 
which  could  cause  confusion  in  readings — ^leave  the  space  out 
to  see  what  I  mean. 


The  24-line  screen 


Normally,  you  can  only  PRINT  on  screen  lines  0  to  21. 
There  is  a  system  variable  called  DF-SZ  which  contains  the 
number  of  lines  (including  one  blank  line)  in  the  lower  part 
of  the  screen  normally  used  for  INPUT  or  error  report 
codes.  Its  address  is  16418  and  its  normal  value  is  2,  but 
if  we  give  it  a  value  of  0,  we  can  use  PRINT  AT  to  print  on 
lines  22  and  23. 

It  is  best  not  to  use  INPUT  while  16418  has  been  altered  or 
you  may  cause  a  system  crash,  so  to  restore  the  bottom  of  the 
screen  to  normal,  POKE  16418,2  should  be  used  before  any 
INPUT  statement.  If  16418  has  a  value  of  less  than  2,  then 
SCROLL  should  not  be  used  either.  But  if  a  number  greater 
than  2  is  POKEd  into  16418,  then  SCROLL  begins  to  oper¬ 
ate  from  a  different  point  than  usual — a  part  screen  scroll  in 
BASIC!  What  is  more,  the  PRINT  position  is  moved  to  the 
line  from  which  SCROLL  operates! 


PEEKing/POKEing  into  the  display  file 

See  the  section  on  moving  graphics  for  a  detailed  ex¬ 
planation. 


138 


MASTERING  YOUR  TIMEX  SINCLAIR  1000 


Suppressing  the  error  report  codes 


When  you  have  a  program  where  the  display  is  very  impor¬ 
tant  (e.g.,  at  an  exhibition  or  in  educational  programs),  it  can 
be  detracting  or  even  embarrassing  trying  to  explain  “those 
funny  little  numbers  at  the  bottom  of  the  screen.”  Here  is  a 
method  whereby  you  can  prevent  the  error  report  code  from 
appearing. 

Hie  error  report  code  is  determined  by  the  value  of  address 
16384,  the  first  system  variable.  The  trick  is  to  POKE  num¬ 
bers  into  16384  that  do  not  cause  anything  to  be  printed  or  to 
print  spaces  which,  of  couree,  cannot  be  seen.  These  values 
may  be  POKEd  into  16384  for  this  purpose;  43,  70,  72,  73, 
74,  75,  76,  77,  79,  81,  82,  89. 

Here  is  an  example: 

POKE  163S4.,“4. 

You  may  find  that  certain  numbers  do  not  produce  the 
desired  result  with  certain  programs.  In  this  case,  choose 
another  number  from  the  list.  SAVE  the  program  on  tape 
before  RUNning  it  if  you’re  at  all  worried! 


Great  system  crashes 


Fun  time  again!  Careless  use  of  POKE  can  ruin  programs 
by  overwriting  vital  parts  or  can  even  cause  a  system  crash 
where  die  computer  appears  to  seize  up,  and  nothing  you 
do  will  make  the  computer  do  anything  except  switching  it 
off. 

Here  are  some  of  the  exciting  things  you  can  do  to  your 
computer  if  you  like  abusing  it! 

1.  Overwrite  some  of  the  ENTER  characters,  particularly 
in  the  display  file — try  this  program: 

1©  LET  P-PEEK  16396 +£56 ^PEEK  1 
S@  POKE  P..0 
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Now  try  to  get  a  normal  display!  The  screen  appears  to 
have  gone  haywire  if  you  press  ENTER  after  running 
the  program.  All  it  does  is  find  the  start  of  the  display 
file  in  line  10  from  the  system  variable  16396/16397 
which  has  this  specific  purpose,  and  changes  the  charac¬ 
ter  found  normally  at  this  location  (an  ENTER  charac¬ 
ter  CHRS  118)  to  a  space  by  using  POKE.  The  poor 
machine  then  gets  confused  when  trying  to  produce  a 
listing. 

2.  For  some  novel  displays,  try  POKEing  all  the  numbers 
from  0  to  255  into  the  system  variable  16384  that  controls 
the  error  code. 

3.  Load  your  favorite  program,  add  a  line  or  two  to  reset 
the  frame  counter  to  0,  and  wait  for  a  while  to  see  the 
result  (the  frame  counter  is  system  variable  16436/7  and 
is  reset  to  0  by  POKE  16436,0  and  POKE  16437,0).  It 
may  not  work  every  time,  but  is  usually  quite  effective! 

4.  Try  this  program; 

10  POKE  164-18,.© 

af  INPLIT 

Where  did  the  program  go? 

5.  This  is  the  classic  POKE  anything  anywhere  at  ran¬ 
dom.  RUN  it  several  times  to  see  the  different  ef¬ 
fects  possible. 

10  POKE  16384. +  INT  C«NDa^l024..i  ,  X 

NT  (RND«10a4.} 
a©  GOTO  10 


You  may  want  to  use  the  printer  if  you  have  one  to 
keep  a  record  of  the  interesting  ones: 


10  LET  RDDRESS-i63S4s  +  INT  (RN£>«^ 
1834.  > 

30  LET  RasINT  fRND*356) 

30  LPRINT  ;  RDDRESS 

4.0  LPRXNT  “NUHBER  TO  POKE*  ..  R 
50  POKE  RDOReSS,,R 
60  GOTO  1© 


Too  much  fun  gets  boring.  Back  to  some  more  seri¬ 
ous  things. 
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Length  of  programs 


Here  is  how  the  computer’s  RAM  is  organized: 

HOW  TO  FIND  THE  ADDRESS 
PART  OF  RAM  OF  THE  BOUNDARIES 

16384 

16509 

PEEK  16395  +  256*16397 

PEEK  16400+  256*PEEK  16401 

PEEK  16404  +  256*PEEK  16405 

PEEK  16410  +  256*PEEK  16411 

PEEK  16412+256*PEEK  16413 

Stack  pointer— 
not  accessible  from  BASIC 

PEEK  16386+256*PEEK  16387 


system  vanables 


program 


display  file 
(screen  picture) 


variables 


byte  with  CHRS128 


work  space 


calculator  stack 


space  memory 


machine  stack 


GOSUB  stack 


PEEK  16388  +  256*PEEK  16389 
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The  number  of  bytes  used  for  the  system  variables  is 
125.  To  find  how  much  memory  is  occupied  by  the  pro¬ 
gram  alone,  excluding  system  variables  and  display,  use  this 
line: 

PRINT  PEEK  16396+25e*PEEK  16397 
—  3.6503 

This  line  will  give  the  number  of  bytes  occupied  by  the 
program,  variables,  system  variables,  and  display; 

PRINT  PEEK  164.©4.+256*^PEEK  164.05 
-16364- 

This  line  gives  the  memory  left  for  the  user,  perhaps  the 
most  useful  one-line  test  of  them  all.  It  does  not,  however, 
take  into  account  the  stack  (the  area  of  memory  which  is 
reserved  for  the  storage  of  data  and  such  things  as  the  return 
address  from  a  GOSUB)  because  the  stack  pointer  (a  register 
which  holds  the  address  of  the  top  of  the  stack)  cannot  be 
accessed  from  BASIC: 

PRINT  PEEK  16386 +256  ^frPEEK  16387 
-PEEK  164.12-256+PEEK  164-13-81 

Note  that  you  need  to  subtract  81  because  of  the  length  of 
the  statement. 


Inserting  noneditable  lines  Into  listings 


Normally,  if  you  have  a  title/author  REM  statement  in  a 
listing,  it  is  fairly  simple  for  others  to  delete  these  lines, 
thus  denying  you  your  authorship.  However,  you  can  make 
them  impossible  to  remove  by  changing  the  line  number  of 
the  first  line  of  the  program  to  0.  The  first  line  of  a  program 
is  stored  at  address  16509,  and  the  line  number  occupies  two 
bytes.  We  can  change  these  with  POKE.  The  two  bytes  are 
stored  so  that  the  more  significant  byte  is  followed  by  the 
less  significant  byte  (that  is,  the  more  important — highest — 
part  is  stored  first,  with  the  less  important — ^lowest  ^part 
second). 

Here  is  how  to  change  a  line  number  to  0: 

POKE  16509,0 
POKE  16510,0 
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Now  try  to  delete  the  first  line.  Quite  secure,  isn’t  it?  The 
only  way  is  to  POKE  a  nonzero  line  number  into  16509, 10.  So 
anybody  who  knew  about  the  technique  could  easily  delete 
the  line. 

A  slightiy  better  method  is  to  change  a  line  number  in  the 
middle  of  a  listing.  This  is  more  difficult  because  we  have  no 
way  of  knowing  where  individual  lines  start.  A  starting  point 
is  the  knowledge  that  program  lines  end  with  an  ENTER 
character  (CHRS  118)  and  the  next  line  will  begin  with  the 
line  number.  Take  this  example: 

i©  REH  URT  CRLCUi-RTOR 
a©  PRXNT  ••  ENTER  RHOUNT  LESS  UR 

T: 

3©  INPUT  fi 

4.0  REM  CO  FRED  BLQGGS  ISSa 
S0  PRINT  P 

S©  PRINT  ''URTs*’;  R#15.*'100 

We  need  to  change  line  40  to  line  0  and  keep  it  located  in  its 
present  position  in  the  listing  to  make  it  difficult  to  delete  or  edit. 
Using  tte  information  we  have,  add  these  lines  to  the  program; 

©©©©■FOR  Ps  16509  TO  PEEK  16396 •f'a 
56»^EK  16397-3 

9010  IP  PEEK  F=118  RND  2S6«^PEEK 
CF4-1)  +PEEK  (F+a)  *=4.0  THEN  GOTO  9© 
4.0 

902©  NEXT  F 
9030  STOP 

304.0  POKE  F  +  1..0 
9050  POKE  F+a.,© 

Now  delete  lines  9000  to  9050  and  then  try  to  delete  line  0. 
Incidentally,  to  make  the  program  safer,  it  is  normally 
better  to  insert  this  new  line  0  at  the  point  higher  in  a  listing 
than  line  255,  since  it  will  then  be  necessary  to  change  two 
bytes  of  the  listing  to  get  rid  of  line  0.  Another  way  to  do  the 
same  thing  is  to  use  the  system  variable  NXTLIN  (16425/16426) 
to  find  the  address  of  the  start  of  the  next  line,  provided  you 
have  space  to  add  a  few  extra  lines  to  the  listing.  We’ll  use 
this  example: 

10  REM  PRTTERNS 
2©  INPUT 
3©  PRINT  R$; 

4.0  REM  to  FRED  BLOGGS  1982 
50  GOTO  30 
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Add  these  extra  lines  to  the  program: 

39  LET  fi=PEEK  164254-S56«PEEK  i 

4.1  POKE  R..  0 
4-2  POKE  R  +  1..0 
4.3  STOP 

Now  use  RUN  39  to  make  the  routine  work.  Once  line  40 
has  been  changed  to  line  0,  delete  the  extra  line.  If  you  like 
making  fools  of  computers,  you  can  have  great  fun  POKEing 
all  sorts  of  line  numbers  into  listings.  Who  said  the  computer 
sorts  lin^  into  order  automatically? 


Preventing  a  screen  memory  overflow 


This  routine  makes  use  of  the  system  variable  16442  which 
refers  to  the  line  number  of  the  PRINT  position,  but  does  not 
have  the  same  value  as  the  line  number.  It  starts  off  at  24  for 
the  top  line  of  the  screen,  and  goes  down  to  1  for  the  bottom 
line.  TTie  expression 

IF  PEEK  164-4-2  <4.  THEN  CLS 

clears  the  screen  automatically  if  the  PRINT  position  moves 
to  line  21  (the  lowest  line  the  user  can  PRINT  on). 

Some  programs  require  that  the  screen  be  cleared  occasion- , 
ally  to  prevent  a  screen  memory  overflow  when  the  PRINT 
position  gets  down  to  the  bottom  of  the  screen.  Here  is  one 
way  to  do  this: 

XF  PEEK  164^2  <4-  THEN  CLS 

16442  is  the  system  variable  containing  the  line  number  of 
the  PRINT  position.  It  starts  off  at  24  for  the  top  line,  down 
to  3  for  the  lowest  line  available  to  the  programmer,  and  2 
and  1  for  the  two  lines  at  the  bottom  of  the  screen  used  for 
INPUT,  and  so  on.  I  have  used  4,  but  you  could  substitute 
another  number  if  you  like. 

Normally  you  can  only  PRINT  on  the  top  22  lines  of  the 
screen  display  (lines  0  to  21).  Any  attempt  to  use  the  bottom 
two  lines  with  PRINT  is  normally  rewarded  with  an  error 
report  5.  You  can  gain  access  to  these  lines  by  two  methods. 
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The  simplest  is  to  POKE  directly  into  memory  at  the  location 
of  the  bottom  two  lines  of  the  screen. 

If  you  have  more  than  of  memory  plugged  in  (e.g.,  if 

you  have  a  16K  RAMPACK)  and  the  display  is  at  full  size, 
line  22  starts  at  (PEEK  16396 +  256*PEEK  16397  +  727), 
ends  at  (PEEK  16396  +  256*PEEK  16397  +  758).  Line  23 
consequently  starts  at  (PEEK  16396  +  256*PEEK  16397  +  760) 
and  ends  at  (PEEK  16396  +  256*PEEK  16397  +  791).  These 
addresses  will  be  different  if  the  display  file  size  is  altered,  as 
might  happen  if  SCROLL  was  used.  The  second  method  uses 
PRINT  AT  and  the  system  variable  DF— SZ  at  address  16418. 
The  number  in  16418  says  how  many  lines  in  the  bottom  of 
the  screen  are  not  available  to  the  user — normally  two.  So  if 
we  change  this  number  to  0,  we  have  access  to  all  24  lines  of 
the  screen  display  and  we  can  use  PRINT  AT  23, X  or  PRINT 
AT  22, X. 

However,  this  method  comes  unstuck  when  the  computer 
tries  to  use  the  bottom  of  the  screen  for  error  reports,  IN¬ 
PUTS,  or  even  SCROLL.  You  can  get  a  very  nasty  systems 
crash  and  lose  your  program  if  you’re  unlucky  (no  lasting 
damage  will  be  done,  but  you  may  have  to  switch  off  for  a 
few  seconds).  The  statement  POKE  16418,0  must  be  entered 
as  a  line  in  a  program. 

It  does  not  work  if  it  is  entered  as  a  direct  command 
without  a  line  number,  because  the  computer  will  reset  it 
automatically  when  the  screen  is  cleared  or  a  program  is 
RUN.  If  you  wish  to  use  INPUT  during  the  course  of  a 
program,  then  you  should  POKE  16418,2  to  restore  the  bot¬ 
tom  of  the  screen  to  normal  before  attempting  to  use  INPUT, 
which  will  of  course  erase  characters  PRINTed  on  line  22  and 
23!  Incidentally,  be  careful  if  you’re  using  an  unexpanded 
machine — the  display  file  tehaves  in  a  strange  way  and  makes 
use  of  16418 — so  try  not  to  upset  it  too  much! 

To  place  any  particular  line  number  you  require  at  the  top 
of  automatic  listings,  you  must  first  move  the  cursor  to  a 
line  number  greater  than  the  one  you  want  at  the  top 
(NUMBER  is  the  line  you  want  at  the  top  of  the  screen).  Then 
enter: 

•I 

POKE  164.19^^^UHBER-I^^■  rNUHBER..25 
6) *256 

POKE  164-20.,  XNT  t  NUMBER  ^'256) 
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Now  when  you  press  ENTER,  the  automatic  listing  will 
begin  where  you  specified.  When  entering  lines  when  the  cursor 
is  at  the  bottom  of  the  screen,  the  computer  will  usually  compile 
the  listing  two  or  three  times  to  get  the  new  line  onto  the 
screen  listing  at  the  bottom.  This  is  annoying,  not  to  mention 
time-consuming.  You  can  circumvent  this  by  typing  in 
any  line  number  which  does  not  exist  in  the  listing  (we  always 
use  9999)  and  is  higher  than  any  shown  on  screen.  The  listing 
will  change.  If  you  now  continue  entering  lines  where  you 
were  originally  entering  them,  they  appear  near  the  top  of  the 
screen  and'  the  listing  is  made  properly,  saving  a  lot  of 
fixistration. 


CHAPTER  16 
Business  uses 


The  computer  can  be  used  for  a  number  of  small  business 
applications.  A  wide  variety  of  programs  are  commercially 
available  to  exploit  the  large  potential  of  the  computer.  In  this 
section,  weTl  look  at  some  simple  practical  application  pro¬ 
grams  for  your  Sinclair  machine. 


Money  manipulation 


James  Walsh  has  written  a  program  to  calculate  compound 
interest.  The  user  prompts  are  clear  and  easy  to  follow.  The 
program,  as  can  be  seen  from  the  sample  input,  creates  a  neat 
output  table. 


YERR 

INTEREST 

TOTRi- 

1 

*14 

*113 

'Si 

*15 

*1^ 

3 

*17 

*i4S 

4 

*1Q 

*160  ■ 

© 

*ai. 

*13® 

e 

*S4 

*S03 

"7 

*S6 

$SS3 

3 

*30 

*as7 

3 

*33 

$a63 

10 

*37 

*3S5 

11 

*4.S 

*365 

IS 

*47 

*411 

13 

*5S 

*46  S 

14 

*5S@ 

15 

*66 

*565 

16 

*74 

*656 

17 

*63 

*741 

TOTRLss  *74.1 
INTEREST"-  IS.  5  PERCENT 
ORIGINRl^  RnOUNfTa  *10® 
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S0  REM  COMPOUND  INTEREST 

60  REM 

T©  REM  BY  URMES  URL.SH 

6©  REM 

00  LET  YERR  INTEREST 

TOTAL" 

10©  PRINT  "NUMBER  OF  YEARS'?" 

110  INPUT  Y 

IS©  PRINT  "AMOUNT'?" 

130  INPUT  A 
135  LET  T=R 

14.0  PRINT  "INTEREST  PER  ANNUM?" 
150  INPUT  IN 
160  CLS 

170  FOR  N=1  TO  Y 

IS©  SCROLL 

190  PRINT  RT  0,0; A« 

300  60SUB  340 

310  PRINT  AT  ai,l;H 

sa©  PRINT  AT  S1,S;"$";INT  IV-f-.S 

) 

as©  PRINT  AT  ai,  19;  INT  CT4-. 

5) 

a40  NEXT  N 
as©  SCROLL 
S60  SCROLL 

370  PRINT  "TOTAL=  4" ;  INT  {T4-.5) 
S80  SCROLL 

390  PRINT  "INTEREST^  PER 

CENT" 

300  SCROLL 

310  PRINT  "ORIGINAL  AMOUNT =  4"; 
A 

330  PRINT  AT  0,0;A4 

330  STOP 

340  LET  < 

3S0  LET  Tss  <  IN  10031  SE-T 
360  RETURN 


Let’s  now  look,  in  a  little  more  detail,  at  the  printing  of  a 
column  of  numbers,  a  topic  which  was  touched  on  briefly 
earlier  in  the  book. 

There  is  something  irritating  about  a  list  of  numbers  dis¬ 
played  in  a  tatty  and  irregular  format.  Consider  the  following 
versions  of  the  same  sum: 


99.089 
679.0734 
~  -2 
679 


99.09 

679.07 

-2.00 

679.00 
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-186 

46.009 

-269.087 

-12 

148 

981.08 


2163.1644 

The  version  on  the  left 
routine: 


-186.00 

46.01 

-269.09 

-12.00 

148.00 

981.08 


2163.1644 

produced  by  the  following 


aee  l-St  B=m 

il®  FOR  0=1  TO  1© 

XMPUT  R 
1-3©  i-ET  B=S+R 
14.©  PRINT  R 
IS©  NEXT  O 
IT©  PRINT 
19®  .=RINT  S 
199  STOP 

into  which,  of  course,  we  entered  the  values  which  we  wanted 
to  add  together.  This  is  very  untidy. 

To  start  dealing  with  the  problem,  modify  the  program  by 
adding  or  changing  certain  lines,  as  follows: 

105  t-ET  T  =  16 
14.®  L.ET  X=R 
IS©  eOSUB  1©©© 

16®  L.ET  X=S 
190  GOSUB  100® 

The  value  of  T  can  be  adjusted  to  change  the  lateral  print 
position,  but  be  sure  to  allow  sufficient  room  on  the  left  of 
the  screen  for  the  longest  number  you  want  to  enter. 

The  following  subroutine,  applied  to  the  above,  is  suitable 
for  any  number: 

1010  LET  X*=STR^  X 

1020  PRINT  TP.B  T-LEN  X$;X$ 

1029  RETURN  ' 

If  you  wish  to  enter  decimal  numbers,  but  only  want 
its  nearest  integer  printed  in  each  case,  add  the  following 
lines:  ^ 

100©  IF  X=.5  THEN  LET 
1005  LET  X=INT  iX+.S5 
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You  may  want  to  be  able  to  enter  either  integer  or  noninteger 
values,  and  to  have  these  printed  in  full,  in  which  case 
!  substitute  the  following  for  the  whole  of  subroutine  1000  above. 


■Xe-i®  i-ET 

X®a0  IF 

** 

X030  FOR  K^l  TO  L.EN  X$ 
X04.O  IF  THEN 

1050  NEXT  H 
10©0  l«ET  'X$s=X$  +  "  .  0" 
1080  PRINT  TRB  T-K; 
1089  RETURN 


THEN  L.ET 


GOTO  1070 


You  may  wish  to  be  able  to  enter  negative  values,  in  which 
case  add  the  following  line; 

1015  IF  X<©  THEN  IF  X$ta)  =**,••  TH 
EN  LET  X$=X$  tlJ  TO  } 

You  may  wish  to  print  only  the  first  n  decimal  places.  For 
example,  the  addition  of  the  following  lines  would  be  suitable 
for  cash  (i.e.,  two  decinml  places): 


1003  IF  X-.005  THEN  LET  Xs:.©06 
1003  IF  X  =  -.©05  THEN  LET  X=s~.006 

1005  LET  X  =  INT  *:  100  +  ,  5  }  '  1 O© 

107©  IF  X*CLEN  X$-i)=‘*.“  THEN  LE 
T  X*=:X$4-'‘0*‘ 

You  may  wish  to  put,  as  we  have  done  in  our  opening 
example,  the  total  in  complete  form,  in  which  case  add  the 
following  line; 

1006  IF  0=11  THEN  LET  X=B 

Another  improvement  to  presentation  consists  of  the  addi¬ 
tion  of  the  following  line; 

1060  SCROLL 


You  must  also  amend  any  PRINT  in  the  main  body  of  the 
program  to  SCROLL  (e.g.,  line  170).  ^ 

Finally,  here  is  a  program  based  on  the  preceding  segments 
of  program  which  accepts  five  numbers,  adds  them  together, 
and — ^as  can  be  seen  from  the  printout  above  the  listing 
flints  them  out  attractively. 
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Lining  up  numbers 


1LS3 

<ry 

li 

23333 


.SS4. 

.©es 
.  ©6 
,  60 
,s© 


234-72 . 123 


100  LET  B'a© 

105  LET  T  =  15 
110  FOR  ^=1  TO  5 
120  INPUT  R 
130  LET 
14-0  LET  XasR 
150  GOSUe  1000 
150  NEXT  vi 
170  PRINT 
180  LET  X=B 
100  605UB  1000 
199  STOP 

1010  LET  XSaSTRS  X 

1020  IP  XStll=‘'.“  RND  URL  tXS>  >  ^ 

0999999  THEN  LET  X9='‘0“+Xe 

1030  FOR  Kal  TO  LEN  XS 

1040  IF  Xe«H.>  s“.  “-THEN  GOTO  1070 

1050  NEXT  K 

1050  LET  Xe»X$r4-**  . 

1070  IF  XS^I-EN  Xfi-1>=:".“  OP  X9CL 
£N  X<i>=“*“  THEN  LET  X^aX^-*-“0“ 
1080  PRINT  TRB  T-K.;X$ 

1089  RETURN 


The  material  on  lining  up  numbers  was  prepared  by  Nick 
Godwin  who  also  helped  write  the  word  processor  program 
that  follows.  You’ll  need  extra  memory  to  run  this  program. 
It  will  not  fit  on  an  unexpanded  T/S  1000. 

This  word  processor  program  will  make  text  neat  and  tidy 
before  you  print  it — and  gives  you  the  chance  to  correct 
mistakes,  using  a  free-moving  cursor.  You  enter  your  text  (up 
to  17  lines  deep)  as  a  single  string,  XX.  When  you  have  the 
text  in,  you  press  ENTER,  and  the  computer  will  shuffle  the 
words  to  ensure  that  none  of  them  are  split  at  the  end  of  a 
line. 

A  menu  appears  with  three  options:  1 — correct  the  text; 
2 — ^LPRINT  the  text;  and  3 — start  again.  If  you  decide  yoii 
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'wish  to  correct  the  text,  it  will  reappear  on  the  screen  with  the 
words  “ENTER  1  TO  RETURN  TO  MENU”  above  it.  You 
I  use  the  5,  6,  7,  and  8  keys  to  move  your  cursor  in  the 
I  direction  indicated  by  the  arrows  on  those  keys,  and  the 
I  cursor  moves  along  the  line  of  text,  inverting  the  letter  it  is 
j  passing  over.  Once  you  find  a  letter  which  is  wrong,  you 
press  A  and  the  words  ENTER  LETTER  TO  BE  SUB- 
STITUTED  appear  at  the  bottom  of  the  screen.  You  enter 
your  letter,  and  press  ENTER,  and  the  inverse  incorrect  letter 
will  be  altered  to  the  letter  you’ve  chosen.  Pressing  1  at 
any  time  will  return  you  from  the  “correction  phase”  to  the 
original  menu,  and  from  this  menu  you  can  choose  2  to 
LPRINT  the  text. 

If  you  want  the  text  printed,  the  computer  searches  through 
the  whole  string,  turning  any  inverse  letters  back  to  their 
noninverse  equivalents.  After  LPRINTing,  you  are  shown  a 
further  menu,  which  allows  you  to  run  the  whole  program 
again  from  scratch  or  to  terminate  the  run. 


sa  PRINT  "ENTER  TEXT" 

30  INPUT  X» 

32  L.ET  X$=:X$-»-" 

*  • 


•35 
4.0 
50 
6© 
7B 
cr  VT 

•WM.  S  I  ,t 

RRT 

3© 

100 

ilQ 

a 

120 

0 

130 

100© 

1010 

1020 

103© 

104.0 

104.5 

1050 

1060 


CLS 

GOSUE  1000 
PRINT  X$ 

PRINT 

PRINT  "ENTER  1  TO  CORRECT  T 
2- TO  LPRINT,  3  TO  ST 

RGfilN" 

IF  INKEY $=""  THEN  GOTO  80 
IF  INKEY $= "3"  THEN  RUN 
IF  INKEY $  =  "2"  THEN  GOTO  4.00 

IF  INKEY  $="1"  THEN  GOTO  200 


GOTO  S© 

REH  STOPS 
LET  N=1 
GOSUB  1180 
LET  N=N+'33 
IF  N>=LEN 
REM  SINGLE 
NEXT 

IF  X$ (N) =" 
GOSUB  1180 


UORD  SPLITTING 


X$  THEN  RETURN 
■SPRCE  IN 
LINE 

"  THEN  GOTO  1160 


i 
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106S 

107© 

10S0 

1090 

1100 

1105 

1110 

1120 

1125 

1130 
1  TO 
114.0 
104.5 

1050 

1060 

1065 

1070 

1050 

1090 

1100 

1105 

1110 

1120 

1125 

1130 
1  TO 
1X4-© 
1150 
1160 
TO  ) 


REM  SXNGL-E  SPRCE  IN 
NEXT  LINE 

IF  X$(N)=*‘  *•  THEN  GOTO  103© 

LET  U^0 
GOSUB  118© 

LET 

REM  SINGLE  SPRCE  IN 
NEXT  LINE 

IF  X$(N)>"  ••  THEN  GOTO  1090 

FOR  N=N  TO  N4-U-1 
REM  SINGLE  SPRCE  IN 
NEXT  LINE 

LET  X5sX$Cl  TO  NJ 4"  “4X5 CN4 

) 

NEXT  N 

REM  SINGLE  SPRCE  IN 
NEXT*  LINE 

IF  X5tN)="  ■*  THEN  GOTO  liS© 

GOSUB  use 

REH  SINGLE  SPRCE  IN 
NEXT  LINE 

IF  ••  THEN  GOTO  103© 

LET  U=0 
GOSUB  1180 
LET  J=04l 

REM  SINGLE  SPRCE  IN 
NEXT  LINE 

IF  X5CN)  >“  “  THEN  GOTO  1090 

FOR  N=N  TO  N4U-1 
REM  SINGLE  SPRCE  IN 
NEXT  LINE 

LET  X$=X$C1  TO  NJ 4“  “4X5<N4 

) 

NEXT  N 
GOTO  103© 

LET  X$=X$C1  TO  N-1J4X5(N4 


1170  GOTO  1020 
1180  LET  N  s=N  - 1 
1190  RETURN 

2000  REM  **CaRREimON«^*^ 

2010  CLS 

Sgig^PRINT  “ENTER  1  TO  RETURN  TO 

203©  LET  Rati 

2035  PRINT  RT  2,0;X*L 

INKEY  5*““  THEN  GOTO  204.0 
thIn  rno  r<len  xm 

32  THEN  LET  RssR4.32  ^ 

2060  IF  INKEY5s^“S^  RNO  R>  1  ,T«EN 

L»CL  i  ^ 


BUSINESS  USES 


&&es  IF  rNKEYi>«'*7**  RNO  fi>3a  THEN 
LET  fi=«~3a 

3070  IF  INKEY TH04  SOTO  70 

3075  IF  INKEY  THEN  tSOTQ  3©0 

0 

3076  PRINT  RT  1,©.:R;**  ■•iX$(R5;” 

3000  IF.  CODE  XairtRr  <  iaE-THI^^  t£T 
X$=X$(  TO  R-I)  +CHR»  tCQDEX*<R>-«- 
130)  -I^XSI  tR+I  TO  ) 

3005  IF  ^  ff^  Tff&4- 

3030  IF  RM  RNO  CODE.  >  137 

THEN  LET  X*  t«-l)  =:CHR*  5COOE  X*  € 
R-IJ -133) 

3033  IF  RF<3S  THEN  GOTO  "  SiSHO 
3035  IF  CODE  X*  tR-337  >137  THEN  L. 
ET  X<i(R-33)  =CHRifc  CCQDE  X*^m-^3y - 
130)  . 

3100  IF  R<LEN  X*-l  HNIX  CODE^  X*TR 
+  1)  >137  THEN  LET  X*  (R+l)  ssCHR*“  tC 
ODE  X* {R+IJ -130) 

3103  IF  R  <LEN  X3^33  THEN  ©SmO  30 
35 

3105  IF  CODE  X3<B+3a) >137  THEN  L 
ET  X$  (R4>33}  sCHR#  CCODE  X^CR^Oa)  - 
138) 

alia  GOTO  3035 

3000  REM  INSER7  CORRECTION 

3005  PRINT  RT  19,©; "INSERT  LETTE 

R  FOR  CORRECTION" 

3010  INPOT 

3030  LET  X«  (RJ 

3035  PR INF  RT  19,0; " 


3030  GOTO  3035 

4.000  REH  REMOWE  INUS^SE,  LPRINT 
4.010  FOR  G=^l  TO  LEW 
4030  IF  CODE  X*<G)  >137  THEN  LET 
X$(G)  =CHR*  CCODE  XlfcCGi  -lSO) 

4.030  NEXT  G 
4.04.0  LPRINT  X* 

4.050  CLS  _ 

4.060  PRINT  "ENTER  1  TO  RON  RGRIN 


4.070  PRirrr  tre  5;  "s_tq'  ^nd; 
4.000  IF  INKEY5«-r" 

4.090  IF  INKEY  $  1  THEN  RON 


4.000 


Alphabetizing _ 

The  final  program  in  this  section  is  designed  to  place 
entries  and  page  references  in  alphabetical  order,  and  will 
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enable  indexes  to  be  constructed  (e.g.,  to  books  or  articles  in 
magazines)  or  can  be  easily  adapted  to  accommodate  stock 
lists  or  levels.  You’ll  need  extra  memory  to  run  this  program. 
It  will  not  fit  on  an  unexpanded  T/S  1000. 

The  program  is  based  on  the  string  sort  given  earlier  in  the 
book.  It  is  in  two  parts.  The  first  part  (lines  20  to  710)  accepts 
the  information  required,  and  the  second  section  sorts  the  data 
into  alphabetical  order  and  then  either  prints  it  on  the  screen 
or  LPRINTs  it  to  the  printer. 

The  program  first  asks  for  the  title  (which  is  assigned  in 
line  30  to  T8)  and  tlte  name  of  the  author  (assigned  in  line  50  to 
AX).  The  program  can  cope  with  200  entries  of  up  to  32 
characters  long.  The  program  (see  line  685)  automatically 
strips  an  entry  down  to  32  characters  if  one  which  is  too  long 
is  entered. 

You  continue  to  enter  information  until  you  wish  to  sort 
and  print,  when  you  enter  E.  The  program  will  then  sort 
the  data,  and  print  it  item  by  item. 

The  format  of  the  output  depends,  to  a  large  extent,  on 
how  you  enter  the  information.  Although  the  program  will 
automatically  lay  out  the  title  and  author  fairly  well,  the 
format  of  the  entries  from  this  point  on  depends  on  how  they 
were  entered.  The  short  sample  run  shows  that  each  entry  was 
made  in  the  form  “LAWRENCE -28,”  but  any  other  form 
you  desire  would  be  acceptable. 

This  program  has  ncrt  been  set  to  accommodate  the  maxi¬ 
mum  number  of  entries  possible  with  16K  attached.  You  can 
alter  parts  of  the  program  to  trade  off  length  of  items  against 
the  number  of  items  you  want. 

If  you  decided  that,  for  example,  16  characters  were  long 
enough  for  each  item,  you  could  make  the  following  changes; 

200  DIM  WX(600,16) 

615  Make  sure  the  string  is  16  characters  long  (i.e.,  that 
there  are  15  spaces  after  the  E) 

685  LET  WX(A)  =  WX(A)  (TO  16) 

This  would  give  you  access  to  6(X)  items,  each  up  to  16 
characters  long. 

You  may  wish  to  modify  this  program  to  format  the  output 
to  your  satisfaction. 

Sample  run: 


BUSINESS  USES 
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through  the  west 

hqprer,  c. 

FRESNO  -  4-3 
LOS  Rt^ELES  ~ 

MEOf=Cmf?  -  S3 
HEX  XCRL I  53 
ORKL-RND  -  56 
PRSRDENR  -  4.7 
5Rt_EM  -  22 
5RN  FRRNOXSGQ  ~  33 
SEfrrTL.E  —  xsl. 

TRCOHR  -  i7 


The  program; 


1©  REM  INDEX 

a©  PRINT  "ENTER  TITLE" 

30  INPUT  T$ 

4©  PRINT  "ENTER  RUTHOR" 

50  INPLIT  R$ 

60  CLS 

a©©  DIM  w$(2e©..3a) 

300  LET  B=0 
400  LET  Gt=0 
500  LET  R=sl 

600  PRINT  RT  2,0; "ENTER  SUBUECT 
RND  PRGE" """E""  TO  ENE>" 
610  INPUT  U9i(R> 

615  IF  W$(R}=t"E 

"  THEM  OnTO  350 
62©  PRINT  "ITEM  ";R,"  IS" 

SaS  PRINT 
©3©  PRINT  WS 
635  PRINT 

64©  PRINT  “IF  THIS  IS  CORRECT, 
PRESS  ENTER" 

6Se  PRINT  "IF  NOT  PRESS  P.MV  KEY 
THEN  ENTER" 

660  INPUT  Z  $ 

670  CLS 

86©  IF  THEN  GOTO  6©© 

665  LET  (R> «R) i  TO  32) 

62©  LET  R=fl+1 
700  LET  G=G+1 
71©  GOTO  60© 

250  CLS  _ 

260  PRINT  "DO  YOU  URNT  R  PRINT© 
UT  (1) .  OR" 

270  PRINT  "OUST  ON  THE  SCREEN  ? 
2) 
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9-75  INPUT  Y 
9©©  SCRQt_l_ 

9S5  IF  Y  =  1  THEN  t-PRINT 

990  PRINT  T* 

991  SCROLL. 

99S  PRINT 

993  IF  Ysl  THEN  LPRINT 
994.  SCROLL 
99S  LET  Z»1 
1000  LET  B— Z4-1 
1010  IF  THEN  GOTO  109© 

1©S;@  IF  U$(B>  ^y$!LZ.V  THEN  00X0  iO 
S0 

1030  LET  Z=Z-I-1 
104.0  GOTO  1000 
10S0  LET  ©*=U$tZ) 

1060  LET  U* (Z5  =U$ iBi 
1070  LET  U*CB3f=sO$ 

108©  GOTO  103© 

109©  SCROLL 
1108  PRINT  U$f.G) 

1105  IF  Ysl  THEN  LPRINT  y$ <G) 

1110  LET  G=G~a 

1120  IF  G>0  THEN  GOTO  995 


CHAPTER  17 
improving  your  programs 


You’ve  probably  gone  through  several  stages  as  you  have 
develop«l  your  programming  skills.  After  the  first,  brief 
struggle  with  BASIC,  you  suddenly  discovered  you  could, 
after  a  fashion,  write  programs  which  ran.  They  may  have 
looked  pretty  convoluted  when  you  looked  at  their  listings, 
and  friends  may  have  needed  a  detailed  explanation  from  you 
before  they  knew  what  to  do  when  running  the  programs,  but 
at  least  the  programs  worked. 

There  may  come  a  stage  when  you  decide  you’re  going  to 
have  to  do  better  than  that.  But  while  you  may  be  vaguely 
dissatisfied  with  your  programs,  you  may  not  know  how  to 
go  about  becoming  a  better  programmer.  Here  are  a  few 
guidelines  which  may  help. 

First,  have  a  look  at  a  printout  of  your  listing.  Programs 
linked  by  REM  statements  look  better,  and  are  easier  to 
understand  when  you  return  to  them  after  a  break.  Of  course, 
shortage  of  memory  may  preclude  the  luxury  of  REM  state¬ 
ments,  but  if  you  have  the  memory,  you  should  include  them. 
REM  statements  filled  with  just  one  line  of  asterisks  can 
prove  quite  useful  in  separating  each  major  section  of  the 
program.  Examine  any  unconditional  GOTO  critically.  Too 
many  GOTOs  leapfrogging  over  other  parts  of  the  program 
show  a  lack  of  directed  thinking,  make  programs  run  more 
slowly,  and  can  make  them  almost  impossible  to  decipher. 

It  is  very  good  programming  practice  to  have  each  of  the 
main  sections  of  the  program  (such  as  the  one  which  assigns 
the  variables  at  the  beginning  of  a  run,  the  one  which  prints 
out  the  board,  the  one  which  works  out  who  has  won,  and  so 
on)  in  separate  subroutines.  The  beginning  of  your  program 
could  well  look  like  this: 
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i©  REH  OF  PRQGRRM* 

2©  REH  RSSXGM  URRXRBI-ES 

3©  GOSUB 

4.©  REH  RRX«T  BQRRC 

5©  GOSUB  B©e© 

60  REH  HUHRNS  HOt^E 

70  GOSUB  700© 

e©  REH  cqhputers  tHoye 

G0  GQSyB  600© 

100  REH  CHECK  XF  GRHE  OUER 
110  GOSUB  500© 

12©  GOTO  5© 

As  you  can  see,  this  ensures  that  the  program  actually 
cycles  through  a  continuous  loop  over  and  over  again,  until 
the  pro^am  terminate  within  the  “CHECK  DF  GAME  OVER” 
subroutine.  You  can  actually  write  a  series  of  lines  like  these 
before  you  start  writing  anything  else,  and  even  before  you 
know  how  you  are  going  to  actually  perform  some  of  the 
tasks  within  the  subroutine. 

Then  you  can  write  the  program  module  by  module,  mak¬ 
ing  sure  that  each  module  works  before  going  on  to  the  next. 
It' is  relatively  easy  to  debug  a  program  like  this,  and  far 
simpler  to  keep  an  image  of  where  everything  is  when  you  do 
this  than  when  you  just  allow  a  program  to,  more-  or  less, 
write  itself. 

The  listing  should  be,  titen,  as  transparent  as  you  can  make 
it,  both  for  your  own  present  debugging,  and  for  future 
understanding  of  what  part  of  it  carries  out  what  task.  'Fhe 
ou^ut  of  the  program  should  also  look  good.  Again,  if 
memory  is  not  a  problem,  make  sure. the  display  is  clear  and 
uncluttered.  Use  blank  PRINT  lines  to  space  it  out,  use  rules 
of  graphic  s^bols  or  whatever  to  break  the  screen  up  into 
logical  sections,  and  so  on.  Once  you  have  a  program 
working  satisfactorily,  it  is  worth  spending  extra  time  on  the 
subroutine  which  controls  the  display.  Here  you’ll  appreciate 
again  the  advantage  of  having  ail  the  display  handling  in  one 
subroutine,  as  it  will  be  easy  to  know  where  to  go  to  enhance 
the  display. 

Of  course,  as  we  live  in  a  far  from  ideal  world,  it  is 
unlikely  that  every  single  display  command  can  be  contained 
within  one  subroutine,  but  if  you  aim  toward  that  end,  it  will 
,  make  subsequent  working  upon  the  program  much  easier  than 
it  might  be  otherwise. 


IMPROVING  YOUR  PROGRAMS 


159 


The  “structured”  approach  outlined  also  helps  you  realize 
another  aim  of  a  good  program^ — to  do  what  you  expect  it  to 
every  time  you  run  it.  You  should  write  a  program  so  that, 
even  if  you  are  not  present  when  a  friend  decides  to  run  it  for 
the  first  time,  it  performs  as  expected.  This  means  not  only 
that  it  is  properly  debugged,  but  that  the  instructions  (which 
can  be  contained  within  the  ASSIGN  VARIABLES  subrou¬ 
tine)  are  clear  and  complete. 

The  user  prompts  should  be  clear,  so  the  human  operator 
knows  whether  to  enter  a  number,  a  series  of  numters,  a 
word,  a  date,  a  mixture  of  letters  and  numbers,  and  so  on. 
The  program  has  to  assume  that  the  operator  is  completely 
ignorant,  and  that  no  matter  how  clearly  the  instructions 
and/or  user  prompts  are  stated,  he  or  she  will  attempt  to  do 
things  the  wrong  way.  A  classic  example  of  this  is  the 
entering  of  dates.  Mug  traps,  as  the  routines  to  reject  errone¬ 
ous  input  from  the  operator  are  called,  should  be  set  up  to 
reject  a  date  being  entered  in  a  form  which  the  computer 
cannot  understand  (such  as  the  day  before  the  month)  or 
which  is  clearly  wrong  (such  as  entering  “the  32nd  of  Febru¬ 
ary”).  You  should  ensure  that,  no  matter  what  the  operator 
does,  the  program  does  not  crash  or  otherwise  mistehave. 
This  can  happen  if  the  program  was  expecting  a  numerical 
input,  and  the  operator  tried  to  enter  a  letter  or  a  word.  You 
can  get  around  this  by  always  allowing  a  string  input,  going 
back  for  another  input  if  the  empty  string  is  entered,  and 
taking  the  VAL  or  CODE  of  the  input  to  turn  it  into  numeri¬ 
cal  form. 

Documentation  is  an  area  of  programming  which  is  often 
neglected.  It  is  virtually  essential  for  a  program  which  is 
intended  for  publication,  and  most  advisable  for  long  pro¬ 
grams  which  you’ve  written  for  yourself.  At  the  least,  the 
documentation  should  include  a  list  of  variables,  an  explana¬ 
tion  of  the  program  structure  (which  should  easy  to  do  if 
you’ve  followed  the  “modular”  approach  advised),  and  brief 
instructions,  especially  if  the  program  itself  does  not  contain 
instnictions.  A  sample  run  showing  the  kind  of  inputs,  and 
the  nature  and  layout  of  the  program  outputs,  is  also  useful. 

Your  program  should  nin  as  quickly  as  possible.  Every 
time  there  is  a  subroutine  or  GOTO  call,  the  computer  must 
search  through  the  whole  program,  line  by  line,  to  find  the 
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specified  line  number,  so  placing  often-used  subroutines 
near  the  beginning  of  the  program  will  speed  them  up  slight¬ 
ly.  That  is  why  Ae  instructions  are  often  placed  right  at  the 
end.  You  do  not  want  the  computer  to  have  to  wade  through 
the  initialization  and  instruction  lines  every  time  it  has  been 
told  to  GOTO  or  GOSUB  and  is  looking  for  the  destination  or 
for  the  return  line  number. 

Define  often-used  variables  first,  so  that  they  will  occupy 
the  early  slots  in  the  variables  store.  The  computer  will  search 
the  store  only  until  it  finds  the  variable  it  wants,  so  there  is  no 
point  in  getting  it  to  look  at  more  entries  than  absolutely 
necessary. 

Finally,  and  this  is  by  far  the  best  way  to  test  a  program 
you’ve  written,  call  in  a  friend  and  sit  him  or  her  in  front  of 
the  TV.  Tell  your  friend  to  press  RUN  without  you  saying 
anything,  and  just  sit  back  and  watch.  If  there  is  any  hesita¬ 
tion,  or  the  program  “hiccups,”  you  have  more  work  to  do. 
To  summarize: 

•Use  REM  statements. 

•Make  program  listings  neat  and  logical. 

•Use  structured  programming  techniques,  controlling  the 
program  through  a  loop  of  subroutine  calls. 

•Examine  unconditional  GOTO  commands  critically. 

•Make  output  displays  attractive  and  clear. 

•Ensure  that  all  user  prompts  are  clear. 

•Add  mug  traps  on  all  user  input. 

•Document  your  programs,  even  if  you  just  make  a  list  of 
variables. 

•Make  your  program  run  as  quickly  as  possible. 

•Test  programs  by  allowing  someone  unfamiliar  with  the 
program  to  run  them. 


CHAPTER  18 
Converting  other  BASICS 


A  wealth  of  (x>mputer  programs  written  in  BASIC  can  be 
found  in  a  variety  of  books  and  computing  magazines,  but  as 
all  versions  of  BASIC  differ  to  some  extent,  it  is  unlikely  that 
a  program  written  to  run  on  another  computer  will  work  on 
your  computer  without  some  change.  The  extent  and  nature 
of  these  changes  will  depend  greatly  on  the  structure  of  the 
particular  program  and  how  it  handles  data,  but  it  is  possible 
to  give  some  general  guidance  on  things  to  look  for  when 
approaching  the  task  of  converting  a  “foreign”  program  to 
run  on  your  computer. 


Multiple  statement  lines 


Some  BASICS  allow  multiple  statements  on  a  line,  usually 
I  separated  by  ;  or  \,  e.g., 

im  LET  R=8  taj  +C:  PRINT 

These  will  have  to  be  written  on  separate  lines  for  your 
computer.  Beware  of  multiple  statement  lines  which  involve 
IF/THEN  conditional  statements.  In  general,  when  an  IF 
condition  is  false,  control  passes  to  the  next  line,  not  to 
the  next  statement.  In  other  words,  if  the  IF  condition  is 
false,  the  entire  remainder  of  the  line  is  skipped  over. 
You  should  check  that  the  BASIC  does  in  fact  operate  in 
this  way,  and  make  allowances  in  your  convereion  attempts 
for  this. 
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Integers 


The  function  INT  on  your  machine  rounds  down  to  the 
nearest  integer.  If  the  program  requires  that  the  number  be 
rounded  off  to  the  nearest  integer,  then  follow  this  procedure: 

If  the  number  to  be  INTegered  is  X,  then  round  it  off  to  the 
nearest  integer  by  using  INT(X  +  0.5).  Note  that  the  PRINT 
and  PLOT  commands  round  off  to  the  nearest  integer. 


Arrays 


The  first  element  of  an  array  on  your  computer  is  1.  In 
some  BASICS,  there  is  an  additional  subscript,  0,  which  is  not 
available  on  your  machine.  Any  program  which  uses  the  0 
subscript  must  be  altered  to  start  at  1 .  One  quick  method  (not 
always  guaranteed  to  work)  is  to  add  I  to  each  subscript 
value  that  you  see  used  in  the  program.  If  modifying  the 
subscripts  does  not  work,  then  the  answer  is  to  find  out  how 
the  program  works  and  rewrite  the  program  so  that  the  correct 
range  of  subscripts  is  obtained. 


LEFTS^  RIGHTS,  MIDS 


The  string  operator  LEFTS(RS,X)  may  be  replaced  by  Rg(l 
TO  X)  on  the  computer.  This  may  be  shortened  to  RS(TO  X), 
because  I  is  the  default  value  in  this  case.  RIGHTS(RS,X)  may 
be  replaced  by  RS(LEN  RS  —  X  +  1  TO  LEN  RS),  which  again 
may  be  shortened  to  RS(LEN  RS  ~  X  +  1  TO),  because  the  defaul 
value  in  this  case  is  LEN  RS.  MIDS(RS,J,X)  may  be  replaced 
by  RS(J  TO  J  +  X—  1)  on  the  computer. 


LET 


Some  BASICS  allow  you  to  omit  the  LET  word  when 
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assigning  to  a  variable,  but  this  is  not  permitted  on  the  T/S 
1000.  Therefore,  if  you  come  across,  say,  200  G  =  88,  then 
you  must  rewrite  this  as  200  LET  G  =  88. 


GOTO,  GOSUB 


Some  BASICS  do  not  allow  a  computed  GOTO  or  com¬ 
puted  GOSUB,  such  as  GOTO  B*30.  It  may,  therefore,  be 
possible  to  simplify  a  program  using  this  facility. 


ON/GOTO,  ON/GOSUB 


Often  used  in  some  B ASICs,  these  statements  are  a  form  of 
computed  GOTO/GOSUB.  They  make  the  program  GOTO  or 
GOSUB  one  of  a  number  of  lines  depending  on  the  value  of 
the  variable;  for  example,  55*ON  A  GOTO  115,220,333, 
which  will  jump  to  line  115  if  1=  1,  220  if  1  =  2,  or  333  if  I 
=  3.  The  easiest  way  of  converting  this  statement  is  by  a 
series  of  IF/THEN  GOTO  lines,  e.g.. 


IF  Rs=3.  THEN  GOTO  1X5 
IF  R=2  THEN  GOTO  32® 
IF  Rss3  THEN  GOTO  333 


However,  this  is  clumsy  and  wasteful  of  memory.  If  the 
line  numbers  increment  neatly  in  fixed  steps,  then  it  may  be 
possible  to  use  GOTO  500  +  30* A,  for  example  (that  is,  make 
use  of  the  computed  GOTO/GOSUB  facility).  Note  that  al¬ 
though  not  usually  the  case,  it  is  sometimes  possible  to 
renumber  the  program  to  suit. 

If  the  line  numbers  don’t  increment  in  convenient  steps, 
then  another  possibility  is  to  use  “GOTO  a  conditional  ex¬ 
pression.*’  For  example,  Ok  A  GOTO  1 15,220,333  could  be 
replaced  by 


GOTO  CR  =  1)  ♦115+ (R=2)  +22®+  tR=3)  ♦ 
333 


Another  possibility  is 

goto  <115  RND  R=:l#+(22®  RND  R=2) 
+  <333  RND  fi=:3) 
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or  even 

GOTO  ta.15  OR  OR  R<>2} 

« CS33  OR  R<>3J 


IF/THEN 


The  expression  BP  X  =  2  THEN  200  is  permitted  in  some 
BASICS.  It  means  IF  X  =  2  THEN  GOTO  200.  You  must 
include  the  GOTO  after  THEN  on  the  T/S  1000.  Some 
BASICS  insist  on  having  a  line  number  after  THEN.  The 
computer  can  have  any  command  after  THEN.  You  may  be 
able  to  use  this  facility  to  simplify  programs  on  your  computer. 


FOR/NEXT  loops 


In  many  BASICs  a  FOR/NEXT  loop  is  executed  at  least 
once  when  it  is  met,  even  if  the  end  value  has  already  been 
exceeded,  because  the  test  to  see  if  the  end  value  has  been 
exceeded  is  done  at  the  NEXT  statement.  On  tlie  T/S  1000,  if 
the  end  value  has  been  exceeded  before  the  loop  starts,  then 
the  loop  is  totally  and  completely  bypassed,  e.g., 

10  FOR  R=1  TO  @ 

20  PRINT  ft 
30  NEXT  ft 

will  result  in  nothing  being  printed,  because  the  computer 
has  realized  that  0  is  less  than  the  start  value,  so  it  skips  over 
the  entire  loop  rather  than  running  through  it  once.  Note  that 
if  you  added  STEP- 1,  then  the  computer  would  perform  the 
loop  normally,  because  it  expects  the  finish  value  to  be  less 
than  the  start  value.  In  general,  this  will  not  present  problems 
unless  the  control  variable  is  itself  set  by  another  variable. 

Note  also  that  the  variable  after  NEXT  may  be  omitted  on 
some  BASICS,  in  which  case  the  most  recent  control  variable 
is  incremented.  This  is  not  possible  on  your  machine  because 
the  control  variable  must  always  be  specified. 

Some  BASICS  do  not  like  you  to  jump  out  of  a  FOR/NEXT 
loop  before  that  loop  has  been  finished,  and  some  require  the 
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use  of  a  special  statement  enabling  you  to  jump  out  of  a  loop. 
On  the  T/S  1000  you  can  jump  out  of  a  loop  at  will,  although 
the  control  variable  is  stored  in  memory,  meaning  that  you 
can  jump  back  into  that  loop  if  you  so  desire.  However,  do 
not  jump  into  a  loop  that  has  not  already  been  executed,  since 
this  will  cause  the  program  to  stop  with  an  error  report  1 . 


END 


Sometimes  END  which  stops  the  program  may  be  omitted 
altogether,  or  sometimes  it  may  be  replaced  by  STOP. 


PEEK  and  POKE 


There  is  no  easy  way  to  convert  statements  involving  these 
expressions  since  their  effect  will  be  different  on  each  ma¬ 
chine.  The  only  way  to  convert  is  to  find  out  what  the 
commands  do,  then  rewrite  the  statement  to  perform  an  equiv¬ 
alent  operation  on  the  T/S  1000  if  this  is  possible. 


INPUT 


You  may  come  across  INPUT  statements  which  can  accept 
more  than  one  input  value,  and  perhaps  print  a  prompt  string 
as  well.  You  will  have  to  rewrite  this  using  a  PRINT  state¬ 
ment  for  the  prompt  string,  and  a  separate  INPUT  for  each 
value  required  as  data.  For  example,  10  input  “ENTER  YOUR 
NAME  AND  AGE”;  FS,A. 


PRINT 


It  is  highly  unlikely  that  the  PRINT  format  of  the  computer 
for  which  the  program  was  intended  will  be  the  same  as  that 
of  your  computer.  In  certain  cases,  this  will  not  matter,  but 
if,  say.  a  moving  display  is  required,  or  a  line  width  exceeds 
32  characters,  then  you  may  be  in  trouble.  In  cases  where  the 
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spacing  across  the  screen  is  set  up  to  merely  “look  pretty,” 
you  can  easily  change  this  by  altering  the  TAB  spacing  or 
adding  or  omitting  spaces  in  Ae  PRINT  statement.  Note  that 
programs  designed  to  run  on  a  printer  or  a  screen  larger  than 
that  of  your  computer  may  need  changing  to  prevent  a  display 
area  overflow.  One  way  of  doing  this  is  to  have  a  subroutine 
to  the  effect  of  IF  PEEK  16442  <  4  THEN  CLS.  This  works 
because  16442  stores  the  line  number  of  the  PRINT  position 
on  the  screen.  If  the  subroutine  discovers  that  the  PRINT 
position  has  moved  the  bottom  line,  or  whatever  line  you 
insert  in  die  subroutine,  then  the  screen  is  cleared  automati¬ 
cally.  Programs  written  for  a  printer  can  often  be  modified  for 
a  SCROLLing  display.  The  only  facility  on  your  computer  is 
for  an  upward  SCROLLing  display  (although  a  machine-code 
program  can  be  written  for  the  machine  to  SCROLL  down¬ 
ward  or  SCROLL  only  part  of  the  display).  Note  that  the 
lines  in  a  SCROLLing  display  on  your  computer  are  only  as 
long  as  they  need  be — i.e. ,  they  are  not  filled  up  with  spaces  as 
are  the  normal  lines  on  screens  with  more  than  3ViK  of  memoiy 
attached  (according  to  the  system  variable  RAMTOP) — ^so 
you  may  encounter  problems  if  you  attempt  to  PEEK  or 
POKE  the  display. 


Exponentiation 


Some  BASICS  use  the  symbols  ^  or  to  represent  exponenti¬ 
ation;  your  computer  uses  shift-H. 


DEF,  FNR 


This  is  user-defined  function,  which  is  mainly  a  short  way 
of  writing  an  expression.  You  could  replace  this  by  writing 
the  expression  out  in  full  each  time  it  is  needed,  or  by  adding 
a  subroutine  to  perform  the  required  calculation.  Another 
method  which  is  not  always  guaranteed  to  work  is  to  assign 
the  required  calculation  to  a  string  variable  and  use  VAL  to 
evaluate  die  expression,  because  VAL  can  evaluate  any 
numeric  expressions,  including  variables  and  numeric  func¬ 
tions.  For  example,  if  the  original  user-defined  function  reads 
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500  DEF  FNR  CS)  =XNT  (RND^SS  -»-l 
20S0  l_ET  X=FNRC7) 
convert  it  to 

580  LET  0$=s*‘IMT  CRND^S#  +1'* 

S©4.©  LET  S=T 
2858  LET  X=U«L  R* 

This  performs  the  same  duties  as  a  subroutine  can,  but  you 
may  find  it  ei^ier  to  use  this  method  when  converting  “for¬ 
eign”  BASICS.  You  will  find  that  in  certain  applications  it 
can  be  faster  than  a  subroutine.  Note  that  you  can  replace  the 
S  in  line  500. with  a  number  and  use  this  as  a  routine  to 
generate  random  numbers,  in  which  case  you  can  omit  line 
2040.  Who  knows,  subroutines  may  eventually  become 
redundant! 


Random  numbers 


On  machines  dealing  in  real  numbers  (i.e.,  machines  which 
are  capable  of  handling  floating  point  numbers),  randon  num¬ 
bers  are  usually  generated  by  the  expression  RND(O)  or  RND(l) 
or  RND.  The  number  yielded  is  usually  between  0  (which 
value  can  be  taken)  and  1  (which  value  cannot  be  taken).  This 
can  be  directly  replaced  by  RND  on  your  computer.  On 
machines  which  handle  only  integer  numbers,  random  num¬ 
bers  are  usually  generated  by  the  expression  RND  (X),  which 
usually  yields  any  number  from  I  to  X  inclusive.  The  equiva¬ 
lent  expression  on  the  T/S  1000  is  INT  (RND*X)+  1,  which 
yields  an  integer  in  the  same  range.  Since  individual  BASICs 
do  vary,  ensure  that  the  minimum  value  is  1  and  not  0.  If  so, 
omit  the  + 1  in  your  computer’s  expression.  Note  that  the 
“random  numbers”  produced  by  a  computer  are  not  really 
random,  they  only  appear  to  be.  The  computer  has  a  long, 
long  list  of  stored  numbers  to  use  for  random  numbers.  The 
list  is  so  long  you  could  not  possibly  spot  a  pattern  in  it. 
Some  computers  demand  a  seed  for  the  random  number, 
which  determines  where  in  the  long  list  of  numbers  the 
computer  will  start. 
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The  RAND  function  (above  the  T  key)  seeds  the  random 
number  generator  with  a  value  related  to  the  number  of  frames 
which  have  been  sent  to  the  television  since  you  switched 
the  computer  on.  This  value  is  not  affected  by  CLEAR  or 
RUN,  but  is  reset  to  0  by  NEW.  You  will  find  that  you 
get  numbers  which  more  truly  approach  random  ones  by 
including  a  line  like  10  RAND  in  your  programs.  However, 
if  you  do  this,,  make  sure  that  the  program  does  not  go 
through  the  line  RAND  several  times  during  running,  as  this 
will  produce  very  “unrandom”  numbers  indeed.  If  you  use 
RAND  within  a  program,  make  sure  it  is  where  it  will  be 
carried  out  only  once.  Alternatively,  you  can  use  RAND  as  a 
direct  command  before  running  a  program. 


ASC,  CODE 


ASC  returns  the  ASCII  (American  Standard  Code  for  In¬ 
formation  Interchange)  code  of  the  first  character  in  the  string. 
It  is  similar  to  your  computer’s  CODE  function,  except  that 
the  numbers  yielded  are  different.  There  is  no  easy  method  to 
convert  values,  except  if  you  add  20  to  the  CODEs  of  num¬ 
bers  from  0  to  9  and  add  27  to  your  computer’s  character 
CODE  of  any  capital  letters  from  A  to  Z,  you  will  be  given 
the  ASCII  code  of  that  letter  or  number.  Note  that  several 
ASCII  characters,  including  lower-case  letters,  are  not  avail¬ 
able  on  your  machine. 


READ,  DATA,  RESTORE 


Most  BASICS  allow  you  to  write  a  list  of  data  elements  in 
the  program.  When  the  program  is  RUN,  a  READ  statement 
is  then  used  to  transfer  the  values  to  an  array.  The  simplest 
way  of  converting  is  to  replace  the  lot  with  a  list  of  LET 
statements.  This  can  be  very  tedious  and  consume  a  lot  of 
memory  if  there  are  several  values.  A  better  method  is  to  use 
the  routine  in  the  section  Printing  String  Arrays  that  is  pre¬ 
sented  earlier  in  this  book.  First  declare  an  array  with  suffi¬ 
cient  dimensions  and  enter  the  elements  individually  by  means 
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of  a  loop.  Then  delete  the  initialization  program,  and  save  the 
rest  of  the  program  on  tape  using  the  load  and  go  routine,  to 
avoid  any  risk  of  starting  the  program  with  RUN  and  deleting 
all  your  carefully  preserved  variables. 

Another  method  is  to  set  up  a  string  array  long  enough  to 
accommodate  all  the  data  in  one  string,  and  to  then  set  up  a 
numeric  array  so  that  the  first  element  says  where  the  first 
word  or  data  element  starts,  the  second  says  where  it  ends, 
the  third  indicates  the  start  of  the  second  word  or  data  element, 
the  fourth  the  end  of  that  second  data  element,  and  so  on. 
Here’s  an  example  of  this  in  use.  The  computer  will  achieve 
the  amazingly  difficult  task  of  telling  you  which  month  your 
birthday  falls  in  if  you  give  it  the  number  of  that  month. 

You  will  need  two  arrays,  AS  and  BS.  AS  holds  infomiation 
concerning  the  location  of  words  in  BS.  BS  may  be  up  to  999 
characters  in  length  with  three-digit  storage  in  AS.  You  will 
need  to  alter  several  things  in  the  program  ,  to  change  the 
number  of  digits  that  store  information  in  AS.  You  also  need  a 
numeric  variable  A,  which  tells  the  computer  which  word  you 
want  to  extract  from  the  data  string  BS.  If  you  like,  A  can  be 
the  number  of  the  word  you  READ  from  the  DATA  string. 
There  is  no  need  for  a  RESTORE  command,  since  variable  A 
can  simply  be  reset  to  I  if  you  wanted  to  READ  words  from 
BS  in  turn.  You  should  include  a  line  to  preclude  unwanted 
values  of  A  (in  this  case,  less  than  1  or  greater  than  12)  since 
these  will  constitute  a  subscript  error  and  cause  the  program 
to  STOP  with  error  report  3.  Here  is  the  routine: 


10  L.ET  fiSs!**©©100S8il60S10SB0S«5i^ 
3303704.30SS0590670-75  •• 


HfiPRlLHAY 

OCTOBERNOUEHBERDECEHBER " 

30  PRINT  "ENTER  THE  NUHBER  OF 
THE  HONTH  YOU  WERE  BORN  IN?" 

4-0  INPUT  P 

50  IF  R<1  OR  R>12  THEN  GOTO  4-0 
60  LET  Rs:(R-l)*3 

70  PRINT  "SO  YOU  WERE  BORN  IN 
".;B$CURL  TO  R  +  3J  TO  URL  R 

$  tR+4.  TO  R+6)  -1) 


The  numbers  in  string  AS  are  arranged  in  groups  of  three  to 
simplify  decoding.  For  instance,  the  first  three  digits  refer  to 
the  starting  position  of  the  first  word  (001),  the  second  set  ol 
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three  digits  to  the  starting  position  of  the  second  word  (008) 
and  so  on.  You  may  have  noticed  that  there  are  three  extra 
digits  at  the  end  of  AS  that  refer  to  a  nonexistent  element — ^in 
fact,  it  is  one  greater  than  the  position  of  the  last  character  in 
BS  and  is  necessary  for  the  correct  functioning  of  the  routine. 
This  is  because,  to  find  the  end  of  a  word,  the  routine  looks 
for  the  beginning  of  the  next  word  and  subtracts  one  from  its 
starting  position.  As  it  stands,  the  routine  allows  you  to  store 
up  to  999  characters  of  DATA  because  the  starting  positions 
are  stored  as  three  digits,  giving  you  a  maximum  number  of 
999.  To  store  more  DATA  than  this,  you  need  to  store  the 
information  in  AS  in  four  digits  and  change  the  decoding  as 
necessary  in  lines  60  and  70.  Remember  that  the  maximum 
value  of  A  allowed  in  line  50  should  be  the  same  as  the 
number  of  words  in  BS.  It  may  be  less  if  you  want  to  restrict 
the  amount  of  words  available,  e.g.,  anybody  with  a  birthday 
later  than  OCTOBER  was  not  allowed  to  use  the  program! 

The  routine  runs  fairly  quickly,  and  if  you  want  to  test  its 
speed,  make  the  following  changes  to  the  routine.  Try  delet¬ 
ing  line  30: 

4.0  LET  ^1 

70  PRINT  BOCURL  R»  (R  +  I  TO 
TO  ORL  R$(R-f4  TO  R+6>  ;  **  ** ; 

80  GOTO  4.0 


Integer  arithmetic 


In  general,  always  add  the  function  INT  before  a  division 
in  a  program  designed  for  a  computer  witf)  integer  arithmetic. 
You  may  require  parentheses  around  the  division  so  that  INT 
worics  only  on  the  result  of  that  division. 


Logical  expressions 


Most  BASICS  allow  expressions  to  be  evaluated  as  true  or 
false.  On  your  computer,  a  true  expression  returns  a  value  of 
I,  a  false  returns  a  value  of  0.  Some  B ASICs  return  -1  for  a 
true  expression.  The  particular  method  of  conversion  used 
will  depend  on  the  context  in  which  the  expression  is  used.  It 
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may  be  possible  to  negate  the  result  by  simply  adding  the  — 
symbol  to  the  expression,  e.g.,  LET  A  =  B-C  may  be  re¬ 
placed  by  LET  A  =  —  (B = C).  This  method  will  not  work  all  the 
time,  and  hence  it  may  be  necessary  to  completely  rewrite  the 
expression  for  it  to  work  properly  on  your  computer. 


DIM 


Some  BASICS  allow  you  to  write  several  DIM  statements 
on  one  line,  e.g.,  DIM  AS(9),  BS(8),  CS(7).  You  will  have  to 
replace  this  by  individual  DIM  statements  on  sepaiate  pro¬ 
gram  lines.  If  the  program  calls  for  arrays  with  names  that  are 
more  than  one  letter  long,  then  these  have  to  be  replaced  by 
single-letter  names  like  AS  or  B.  If  you  do  not  have  enough 
letters  available,  then  you  may  be  able  to  declare  additional 
dimensions  to  the  existing  ones  for  a  certain  ^ay  and  use  the 
extra  dimension  to  replace  an  array.  Programs  that  cause  this 
problem  are  generally  too  long  to  fit  into  a  standard  T/S  ma¬ 
chine  anyhow.  Beware  of  the  zero  subscripts! 


GET,  GETS 


This  is  a  function  that  reads  characters  or  values  from  keys 
pressed  on  the  keyboard.  It  takes  various  forms  on  various 
computers,  but  in  general  it  waits  until  a  key  is  pressed  before 
it  goes  on,  assigning  either  the  character  corresponding  to  the 
key  pressed  or  the  code  of  that  character  to  a  variable,  for 
example,  GET  AS  or  LET  AS  =  GETS.  You  could  do  this  on 
your  computer: 


1000  LET  ft$=:INKEY*  _ _ 

X010  IF  THEN  60TO 


1000 


This  would  return  the  character  corresponding  to  the  key 
pressed  on  the  keyboard.  If  the  function  was  to  return  the 
CODE  of  the  character  (note  that  this  would  be  ASCII  code, 
which  returns  completely  different  values  to  the  T/S  CODE 
values),  then  use  this  routine; 


1000  LET  ^S^IblKEY^  f.rvrn  1000 
1080  LET  fisCODE 
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The  version  that  returns  a  numeric  value  rather  than  a 
character  code  is  slightly  different.  It  is  necessary  to  ensure 
that  the  character  read  from  the  keyboard  is  in  the  range  from 
0  to  9  so  that  we  can  apply  VAL  to  convert  the  character  to  a 
number.  Here’s  one  way; 

1©00  LET  fl$^iINKEVSi 

3.010  IF  OR  THEN  GO 

TO  1000 

10S0  LET  RssURL  R$ 

You  may  also  come  across  a  version  of  INKEY8  which 
allows  a  time  limit  to  be  specified  for  a  user  response,  e.g., 

100  LET  Pl$ ss INKEY $  CX3 

where  X  specifies  the  time  limit.  This  can  be  converted  in 
two  ways: 

First, 

1O0  PRUSE  X 

110  LET  INKEY $ 

and  second, 

100  FOR  R=©  TO  X 
110  LET  R*-INKEY$ 

1S0  IF  «$<>••’•  THEN  GOTO  131 
130  NEXT  R 

You  will  need  to  change  the  value  of  X  for  both  routines  to 
give  the  required  time  delay. 


VAL 


If  the  argument  of  VAL  does  not  form  a  valid  numerical 
argument,  you  get  an  error  report.  Other  BASICs  return 
0. 


SET,  RESET 


These  are  used  to  make  a  particular  screen  point  white  or 
black.  Replace  with  a  PLOT/UNPLOT/PRINT  AT. 
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Drawing  diagonal  lines  on  screen 


Some  BASICS  have  a  function  that  draws  a  line  between 
two  given  sets  of  coordinates.  The  straightness  and  smooth¬ 
ness  of  this  line  is  determined  by  the  resolution  with  which 
the  machine  used  can  PLOT  or  PRINT  the  line.  As  your 
computer  does  not  sport  high-resolution  graphics,  and  PLOTs 
on  a  64-by-44  matrix,  the  lines  produced  are  not  impressive 
compared  with  more  expensive  high-resolution  machines.  This 
small  routine  allows  you  to  draw  lines  through  two  given  sets 
of  points.  It  may  use  PLOT  or  PRINT  AT,  and  instructions 
are  given  to  enable  you  to  use  either.  You  enter  the  coordi¬ 
nates  in  the  following  order: 

1.  X  coordinate  you  wish  to  start  drawing /rom 

2.  Y  coordinate  you  wish  to  start  drawing /^om 

3.  X  coordinate  you  wish  to  draw  to 

4.  Y  coordinate  you  wish  to  draw  to 

For  instance,  if  you  entered 

0  ENTER 
0  ENTER 
63  ENTER 
43  ENTER 

you  would  see  a  line  being  PLOTted  from  the  bottom  left  side 
of  the  screen  up  toward  the  top  right  side  of  the  screen.  It  is 
quite  fast  to  execute:  The  longest  time  to  PLOT  any  line  is  7 
seconds  and  the  longest  time  to  PRINT  any  line  is  4  seconds. 
This  applies  to  lines  drawn  across  the  full  width  of  the  screen. 
Shorter  lines  take  correspondingly  less  time.  You  can  use  this 
routine  to  PLOT  or  PRINT  one  pixel  or  character  if  you 
want,  simply  by  entering  the  same  pair  of  coordinates  twice 
when  prompted.  This  routine  takes  less  than  300  bytes  for  the 
program  and  variables,  and  extra  for  the  screen: 


3010  INPUT  X 
3020  INPUT 
3030  INPUT  XI 

304.0  INPUT  Y1 _ 

3050  LET  P»X~Xi 
3030  LET  Bs=Y-Yl 
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S‘2'7©  LET  RND  ABS  Pi>s=ftBS  B)  'f- 

im  RND  fiBS  B>RBS 
e©80  IF  C=0  THEf4  LET  C~0.I 
SS9©  FOR  F«@  TO  C  STEP  SGN  C 
8  3.0©  PLOT  X+P/C-g---F^Y+B^-C^t-F 
ail©  NEXT  F 

To  PRINT  AT  rather  than  PLOT  the  line,  change  line  8100 
like  this: 

O©©©  PRINT  RT  V+B^C*-P ,  X+R.^c*-F,; 

The  INPUTS  are  not  idiot-proofed  at  the  moment;  that  is, 
you  can  enter  values  which  cause  the  program  to  crash  or 
produce  undesirable  results.  You  may  want  to  modify  the 
program  yourself  to  protect  it  against  you  and  others.  You 
can  use  one  of  two  methods  to  do  this.  You  can  check  each 
INPUT  after  it  has  been  entered  with  a  line  like  IF  X<0  OR 
X>63  THEN  GOTO  8010.  Alternatively,  you  can  modify  the 
loop  to  PRINT  or  PLOT  only  pixels  or  characters  if  their 
locations  are  actually  on  screen  and  ignore  those  coordinates 
that  are  off  screen. 

Remember  that  this  is  a  subroutine  rather  than  a  program  in 
itself,  although  you  can  use  it  as  a  program  if  you  add  a  line: 

B1S0  GOTO  80XQ 

This  will  allow  you  to  draw  all  sorts  of  lines  to  demonstrate 
the  routine.  Try  drawing  a  frame  around  the  screen  and  lines 
from  comer  to  comer.  Experiment  with  the  PRINT  AT  and 
PLOT  versions  and  see  what  they  can  both  do.  If  you  want 
anything  other  than  black  lines  (e.g.,  letters),  then  you’ll 
obviously  have  to  use  PRINT  AT. 


ELSE 


ITiis  is  an  extension  to  the  IF/THEN  conditional  statement 
and  allows  more  than  one  outcome  depending  on  whether  the 
conditional  statement  is  tme  or  false.  It  may  be  replaced  by 
two  conditional  expressions  on  your  computer.  For  example, 

a®  IF  X  =  aL  THEN  LET  VssT 
80 


tiL.SE  GOXO 
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may  be  replaced  by 


30  IF  Xs=l  THEN  LET  Ys:7 
B1  UF  X<>±  THEN  GOTO  a© 


If  the  action  of  ELSE  is  to  assign  one  of  several  alternative 
values  to  a  variable,  then  it  can  be  replaced  on  one  line;  e.g., 

S0  IF  X=I  THEN  LET  Y=*?  ELSE  LET 
Y=© 


may  be  replaced  by 

S0  LET  Y=C7  ftND  +  CS  GND  X< 

>  1) 

Certain  expressions  such  as  the  one  above  may  be  replaced 
by  even  shorter  forms: 

50  LET  Y=7+C1  RND  XOIJ 


No  general  guideline  can  be  given  since  the  method  used 
will  vary  from  example  to  example.  However,  the  examples 
above  should  give  you  an  idea  of  what  to  expect. 

You  may  come  across  a  statement  where  the  action  per¬ 
formed  by  ELSE  is  itself  conditional; 

X0  IF  X=1  THEN  LET  Y«1  ELSE  IF  X 
=r5  THEN  GOTO  100 

Tliis  will  need  to  be  rewritten  as  either 

10  IF  X^l  THEN  LET  Y*! 

11  IF  XOl  THEN  IF  X=S  THEN  GO 
TO  100 


or 

10  IF  X=1  THEN  LET  Y-1 

11  IF  X<M  RNO  X=5  THEN  GOTO  1 

00 

Again,  you  may  meet  all  sorts  of  conditional  ELSE.s,  and 
the  T/S  version  will  depend  on  the  variation  encountered. 


REPEAT/UNTIL 


This  is  a  loop  that  performs  an  operation  continuously, 
ending  only  when  a  specified  condition  is  met.  Its  use  is  so 
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wide  that  it  is  difficult  to  specify  a  universal  method  of 
conversion  to  T/S  BASIC,  probably  Ae  best  being  the  IF/THEN 
GOTO  conditional  statement.  Here  is  an  example: 

i0  PRINT  "ENTER  YES  OR  HO" 

S®  REPEFTF 
30  INPUT 

4-0  UNTIL  R$-”YES"  OR  R&=:"NO" 
may  be  replaced  by: 

10  PRINT  "ENTER  YES  OR  NO" 

S0  INPLnr  Rt 

30  IF  R$<>"YES**  RND  R$<>"NO"  T 
HEN  GOTO  a© 

REPEAT/UNTIL  structures  are  generally  far  more  complex 
than  this  example,  and  it  may  be  necessary  to  find  a  means  of 
conversion  other  than  IF/THEN  GOTO.  For  example,  where 
the  value  of  a  variable  is  the  determining  factor,  a  FOR/NEXT 
loop  may  sometimes  be  used.  However,  the  possibility  of 
using  an  IF/THEN  GOTO  conditional  statement  should  always 
be  considered  and  is  sometimes  the  only  successful  method  of 
conversion. 


Undefined  variables 


If  you  attempt  to  use  a  variable  before  it  has  been  defined 
or  assigned  to  in  a  program,  some  computers  will  return  a 
value  of  0.  You  get  error  report  2  on  your  computer  if  the 
variable  has  not  previously  been  assigned  to.  When  using 
programs  on  your  computer  which  use  variables,  these  vari¬ 
ables  must  all  be  assigned  to. 


Matrices 


Some  BASICS  have  matrix  functions  which  perform  opera¬ 
tions  on  arrays.  Your  computer  does  not  have  these  functions, 
so  you  will  have  to  perform  the  operations  on  array  elements 
individually,  possibly  by  means  of  a  loop. 

1©  DIH  XCY) 

20  DIH  P  CY) 

30  HRT  XsP 
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This  particular  example  can  be  replaced  by 

1©  t-  ST  N=:© 

S©  DTM  X<Y> 

3©  DIM  PCY) 

4-0  LET  NsN-i-l 

S©  IF  N<Y  THEN  GOTO  4© 


PROC,  ENDPROC 


This  is  a  method  of  using  subroutines  to  do  certain  proce¬ 
dures  in  such  a  way  that  among  other  things  makes  programs 
and  listings  easier  to  understand  and  read  (this  is  called 
structured  programming  by  some).  It  enables  subroutines  to 
be  used  specifically  to  do  certain  things,  and  it  is  like  a 
subroutine  in  many  ways,  but  with  the  important  exception 
that  it  is  called  by  a  name  rather  than  by  its  line  numbers. 
Take  this  example,  which  prints  the  score  on  the  screen: 

i00  PROCSCORE 

m  «  » 

1000  DEF  PROCSCORE 
101©  PRINT  “3CORE  =  **;S 
1020  ENDPROC 

ENDPROC  is  similar  to  RETURN  in  that  the  procedure 
comes  to  an  end  and  the  program  resumes  from  the  line  after 
the  one  which  called  the  procedure,  in  this  case  the  line  after 
line  100.  The  name  of  the  procedure  is  not  used  in  your 
computer’s  version,  although  it  can  be  adapted  for  the  pur¬ 
pose  as  the  second  example  of  the  Sinclair  version  will  show. 
The  simplest  method  of  conversion  to  T/S  BASIC  is  for  line 
100  to  GOSUB  line  1000,  possibly  have  a  REM  statement 
somewhere  in  the  subroutine  to  identify  it,  and  end  the  sub¬ 
routine  with  a  RETURN  command. 

SCCRE  SUBROUTINE 
ISi®  F.RXNT  "SCORE-";  S 
1©2©  RETURN 

If  you  want  to  retain  the  procedure/subroutine  naming  facili¬ 
ty,  you  can  use  a  variable  of  the  same  name  as  the  PRCXI! 
name  assigned  during  the  course  of  the  program  before  the 
subroutine  is  called,  tuid  use  this  variable  as  the  destination 


178 


MASTERING  YOUR  TIMEX  SINCLAIR  1000 


for  the  GOSUB  command.  You  could  include  a  REM  state¬ 
ment  in  the  subroutine  to  identify  the  subroutine  and  tie  it  up 
with  the  variable  name  used.  It  is  useful  to  use  inverse 
characters  in  these  REM  statements  so  that  they  stand  out 
from  the  rest  of  the  listing  text.  Therefore,  you  can  make 
your  programs  seem,  fairly  structured  if  you  like. 

S0  LET  SCORE 

*  100  *  GOSUB  SCORE 

1000 ‘rEH  score  SUBROUT.IME 
1010  PRINT  ••SCORE~*‘;S 
1020  RETURN 

Although  PRCX^s  may  be  complex,  an  ordinary  subroutine 
is  the  best  method  of  conversion  to  your  BASIC  using 
GOSUB/RETURN.  ' 


iNSTR(AS,BS) 


There  is  a  function  that  looks  to  see  if  there  is  a  copy  of  BS 
in  AS,  and  if  there  is,  it  tells  you  where  the  copy  starts.’  For 
instance,  if  BS  was  “PUT”  and  AS  was  ‘  ‘COMPUTER,”  then 
the  value  of  INSTR(AS,BS)  would  be  4  because  the  part  of  AS 
which  held  the  letters  “PUT”  started  at  the  fourth  element  of 
AS.  If  the  function  does  not  find  a  copy  of  BS  in  AS,  then 
INSTR(AS,BS)  has  a  value  of  0.  A  special  routine  has  to  be 
written  to  provide  this  function  on  your  computer. 

Here  is  one  method  of  converting  this  function  to  run  on 
the  T/S. 


1000  REM - LET  XssiNSTR  -- 

101©  LET  Y=:@ 

1020  IF  LEN  R$s0  OR  LEN  0^-0  OR 

LEN  B$>LEN  Rig  THEN  RETURN 

1030  FOR  Ysl  TO  LEN  R$-LEH 

104.0  IF  fi$(Y  TO  Y+LEN  B#-l)  T 

MEN  RETURN 

1050  NEXT  Y 

1060  LET  Y~0 

1070  RETURN 

Note  that  if  you  want  to  detect  whole  words  rather  than  just 
strings,  you  w^l  have  to  examine  AS  for  spaces  or  punctuation 
marks  that  sjlhify  the  start  and  end  of  words.  The  routine 


CONVERTING  OTHER  BASICS 


179 


above  just  finds  matching  strings,  so  that  if  you  wanted  to 
find  the  word  CAT  in  a  phrase  containing  the  word  CATA¬ 
STROPHIC,  this  would  trigger  on  the  first  three  letters  of 
CATASTROPHIC.  Users  of  INSTR  usually  have  this  prob¬ 
lem,  so  the  program  will  cater  for  this  anyway! 


DIV 


DIV  gives  the  whole-number  part  of  die  result  of  a  divi¬ 
sion,  for  example,  17  DIV  5  gives  3.  INT  can  be  applied  to 
the  result  of  the  division  on  your  computer.  So  A  DIV  B  on 
the  T/S  1000  would  be  INT  (A/B). 


MOD 


MOD  gives  the  remainder  of  a  division,  e.g.,  17  MOD  5  is 
2.  A  MOD  B  is  A  -  (INT  (A/B)*B)  on  the  computer.  Note  that 
TAB  carries  out  its  own  MOD  action  (modulo  32)  on  your 
computer. 


Cursor  movement 


Certain  programs  may  require  the  use  of  cursor  control 
codes  to  backspace,  over  text  or  move  the  PRINT  position. 
Where  the  cursor  movement  is  absolute,  a  simple  PRINT  AT 
Y,X;  may  suffice.  Screen  formats  vary  greatly,  and  since 
your  computer  has  one  of  the  lowest  resolution  screens  around 
(32  by  22  characters),  displays  may  prohibit  the  use  of  the 
same  cursor  controls.  Where  cursor  movement  is  relative 
(e.g.,  backspace  1  character),  the  following  may  help:  Use 
the  values  contained  in  the  system  vari^les  16441  (PRINT 
column  number)  and  16442  (PRINT  line  number)  to  control 
the  PRINT  position.  The  values  contained  in  these  system 
variables  do  not  correspond  to  the  normal  PRINT  AT  Y,X; 
values.  The  PRINT  line  number  (16442)  starts  off  at  24  for  a 
Y  coordinate  of  0.  The  PRINT  column  number  (16441)  starts 
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off  at  33  for  an  X  coordinate  of  0.  So  to  move  the  PRINT 
cursor  (!)  up  one  position  we  could  use: 

PRINT  RT  24--PEEK  ie4.4.S--1..33-PeEK 

To  move  the  PRINT  position  down  one  line  we  could  use: 

PRINT  RT  24.-PEEK  164.4-2+  1 , 33 -PEEK 
164-4-1; 

To  move  the  PRINT  position  one  position  to  the  right: 

PRINT  RT  24. -PEEK  164-4-2 , 33 -PEEK  1 
64-4-1  +  1; 

And  to  move  the  PRINT  position  one  position  to  the  left 
(provided  the  last  PRINT  statement  ended  with  a  semicolon 
this  could  be  used  to  erase  the  last  character  printed!): 

PRINT  RT  24.-PEEK  164-4-2  >  33 -PEEK  1 
64-4-1-1; 

You  could  save  all  this  trouble  if  you  used  a  variable  to 
control  the  PRINT  position  as  you  would  in  a  moving-graphics 
program. 


'  (apostrophe) 


The  '  symbol  is  used  on  some  computers  to  move  the 
PRINT  position  down  one  line.  Where  it  is  used  to  move  the 
PRINT  position  to  the  start  of  the  next  line,  a  simple  PRINT 
TAB  0;  will  suffice  on  your  computer.  Where  it  is  used  to 
move  the  PRINT  position  to  the  same  point  on  the  line 
below,  you  could  use  the  techniques  described  in  the  previous 
paragraph  on  cursor  movement. 


SCREENS,  POINT 


These  functions  return  information  as  to  the  state  of  the 
screen  at  a  specified  location.  The  best  way  of  conversion  is 
to  move  the  PRINT  position  to  this  location  by  PRINT  AT 
Y,X;  and  then  use  the  system  variable  DF-CC  in  addresses 
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16398/16399  to  tell  you  where  the  PRINT  position  is  located 
in  the  display  file,  and  then  PEEK  this  address.  It  sounds 
complicated,  but  this  is  all  you  do: 

LET  PaPEEK  tPEEK  163964>St56«PEEK 
16399) 

The  variable  P  now  contains  the  CODE  of  the  character  at 
screen  coordinates  Y,X.  If  you  wish  to  return  the  actual 
character  rather  than  its  CODE,  merely  add: 

LET  CP) 


TAB 


Some  computers  may  have  two  arguments  to  the  TAB 
function,  which  is  used  to  space  out  along  the  screen.  This 
use  of  TAB  conforms  to  your  computer’s  use  of  AT.  For 
example,  TAB  (X,Y)  on  some  computed  would  correspond 
to  AT  Y,X;  on  your  machine.  The  X  and  Y  coordinates  may 
be  in  reverse  order  on  some  computers. 


Degrees  and  radians 

Your  T/S  1000  deals  with  trigonometric  functions  in  radi¬ 
ans.  Degrees  -may  be  converted  to  radians  by  this  expression: 

LET  RPDIRNS=  CPI*£>et5flEE5) /iS® 

and  radians  may  be  converted  to  degrees  by: 

LET  DEGREES = CPIiRPDIPNS) / 180 


Base-10  logarithms _ 

As  your  computer  works  in  natural  logarithms,  to  base  e,  if 
you  need  logs  base  10  for  any  reason,  these  may  be  found 
using  the  expression 

LET  LOGSflSEl©  CX)  “  CLN  (.X)  (LN  f 
),) 
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You  could  use  this  to  find  logs  for  any  base.  Suppose  you 
wanted  the  log  base  b  of  X: 

UET  l>OQB«SeB  fl_N  CS>  J 

Happy  calculations! 


%  (percent  symbol) 


The  percent  symbol  is  generally  use4  to  specify  an  integer 
variable,  e.g.,  A%.  Integer  variables  are  usually  used  to  save 
memory  or  because  they  can  be  processed  more  quickly  than 
conventional  variables.  In  general,  there  is  no  harm  in  using 
an  ordinary  variable,  although  you  should  be  wary  of  these 
integer  variables  being  assigned  as  the  result  of  a,  division — 
they  automatically  truncate  the  quotient  to  its  integer  value. 
In  such  a  case  use  LET  A  =  INT  (A/2),  for  example,  to 
“integerize”  the  result  of  the  division. 


?  (question  mark) 


On  most  computers  die  symbol  ?  is  used  as  an  abbreviation 
for  the  PRINT  command. 
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Byte  watching 


What  does  this  mean? 

If  you  only  have  a  2K  RAM  computer,  you  will  find  yourself 
rather  short  of  space  to  write  programs  in.  Jt  is  necessary, 
therefore,  to  make  sure  that  programs  are  written  with  as  little 
wastage  of  space  as  is  possible.  Sometimes  it  is  a  case  of  how 
something  is  written  rather  than  how  much  space  is  wasted. 
This  section  deals  with  some  methods  of  saving  space;  you 
will  find  other  methods  as  you  continue  to  program. 

Just  how  much  space  have  I  got? 

The  system  variables  (that  tell  the  computer  little  things 
about  itself)  occupy  a  fixed  amount  of  memory  from  16384  to 
16508,  so  that’s  125  bytes  lost  straight  away,  although  three 
of  them  are  not  used.  If  there’s  nothing  printed  on  the  screen, 
then  the  display  file  occupies  just  25  bytes  (containing  25 
NEWLINE  characters  or  CHRS  118’s)  and  this  grows  as  and 
when  you  PRINT  anything  on  the  screen;  e.g.,  if  you  PRINT 
“HELP”,  the  display  file  grows  by  four  bytes.  So  if  you  fill 
the  screen,  you  have  22  lines  of  32  characters  each  plus  the 
25  NEWLINE  characters,  making  726  bytes  in  all.  An  empty 
screen  means  that  there  are  874  bytes  available  for  program, 
display.!,  variables,  work  space,  and  the  various  stacks.  A  full 
screen  on  the  other  hand  leaves  only  173  or  the  first  1024 
bytes. 
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Why  do  programs  need  more  space  than  on 
the  ZX80,  the  T/S  1000’s  predecessor? 

There  are  several  reasons.  First,  line  numbers  are  followed 
in  a  listing  by  two  invisible  bytes  storing  the  length  of  the  line. 
This  was  not  used  on  the  ZX80.  Numbers  need  six  extra 
bytes,  which  you  don’t  see  in  the  listing,  because  the  number 
is  stored  twice — in  a  form  as  typed  into  the  T/S  1000  and  also 
in  a  five-byte  format  following  a  CHRS  126  (telling  the  com¬ 
puter  that  this  is  a  number,  so  don’t  print  it  in  a  listing), 
which  is  a  form  which  enables  die  computer  to  handle  the 
numbo’  more  easily  and  quickly.  None  of  the  six  bytes  were 
used  on  the  ZX80.  So  a  single-digit  number  needs  seven 
bytes  to  store  in  a  program  on  your  computer,  compared  widi 
only  two  bytes  on  the  ZX80.  Also,  numeric  arrays  need  five 
bytes  for  every  element,  compared  with  only  two  on  the 
ZX80,  plus  a  byte  to  say  how  many  dimensions  you’ve  given 
to  the  array  (even  if  it’s  only  one).  Then  there  are  extra  bytes 
for  every  dimensicm  you  give  the  array.  This  also  applies  to 
string  arrays.  FOR/NEXT  loops  use  extra  bytes  as  well — ^the 
initial  value  is  stored  in  five  bytes  as  is  the  limit  value  (as 
opposed  to  two  each  on  the  ZX80).  There  are  an  additional 
five  bytes  that  specify  the  value  of  STEP,  even  if  it  is  not 
specified  in  the  listing. 

How  do  I  go  about  saving  space? 

1.  Numbers  are  the  most  obvious  target.  If  you  don’t  mind 
slowing  the  program  down  slightly,  you  can  store  the 
nuihber  in  a  string  and  decode  it  using  VAL  or  CODE. 
CODE  is  slightly  faster  than  VAL,  so  if  your  numbers 
range  from  0  to  255,  you  can  put  the  character  whose 
code  is  that  number  in  quotes  and  save  a  few  bytes  every 
time;  e.g.,  20  LET  A  =  2  takes  three  more  bytes  than  20 
LET  A= VAL  “2”  or  20  LET  A  =  CODE  “3”.  If  your 
number  is  more  than  one  digit  long,  you  may  find  that 
your  program  listing  becomes  a  bit  hard  to  follow  as  a 
result,  particularly  if  you  use  one  of  the  characters 
’PRINTed  as  ?.  For  example,  50  or  128,  and  tihen  20 


APPENDIX 


185 


LET  A  =  CODE  “M”  and  20  LET  A  =  CODE  save 
one  and  two  bytes  respectively  over  20  LET  A  =  VAL 
“50”  and  20  LET  A  =  yAL  “128”.  If  you  use  a  par¬ 
ticular  number  at  least  four  times  in  a  program,  it  may 
be  worth  storing  that  number  as  a  variable  and  using 
the  variable  instead  of  the  number  throughout  the 
program. 

2.  Line  numbere  arc  anotho"  target.  If  you  have  several 
consecutive  PRINT  or  IF/THEN  statements,  it  may  be 
possible  to  combine  these  ^  a  single  line,  saving  line 
numbers  and  line  length  markers.  You  can  have  any 
combination  of  PRINT/TAB/AT  on  a  single  program 
line,  all  linked  by  ^micolons,  so  you  can  replace 

10  PRINT  TPB  laj  “THE  * 

P0  PRINT  RT  a, 12; “FORCE” 

30  print  RT  4-,  12;  “RULES " 

with  10  PRINT  TAB  12;  “THE”;  AT  2,12;  “FORCE”; 
AT  4,12;  “RULES”  saving  10  bytes  in  all  (4  for  the  two 
line  numbers,  4  for  the  two  line  length  markers,  and  2 
NEWLINE  characters). 

Conditional  statements  can  often  be  reduced  to  one 
line  from  several,  using  either  the  logical  operators 
AND  and  OR  or  the  true/false  values  of  1  and  0;  for 
instance, 

10  IF  INKEya5  =  “8"  THEN  LET  X=X-f-l 
20  IF  INKEV»  =  ”S“  THEN  LET  X=X-1 
may  be  rewritten  as 

10  LET  X  =X  -  <  INREY  $ S  “  J  t  XNtCEY 
*  =  "8**J 

saving  a  mighty  23  bytes! 

You  c^in  apply  this  to  conditional  PRINTS  as  well: 

10  IF  X=i  THEN  PRINT  “ONE” 

20  IF  .X-2  THEN  PRINT  "TUO” 

takes  three  more  bytes  than 

:3^0  PRINT  <“ONE*‘  RND  X  =  l)+<“TUO 
RND  X=r2) 
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This  comes  into  its  own  if  you  have  several  alternatives 
which  can  be  combined  on  one  line.  You  can  extend  diis 
to  GOTO  and  GOSUB  as  well: 

10  IF  X=1  THEN  GOTO  S00 

20  IF  X-2  THEN  GOTO  OS© 

30  IF  X=3  THEN  GOTO  7^7 

occupies  seven  mote  bytes  than 

1©  GOTO  CXkI)  *^500-1- a-6©@<- 

tX  =-3)  ■itT'TT 

You  will  have  noticed  that  these  all  involve  replacing  a 
series  of  IF/THEN  statements  with  several  conditional 
expressions  on  one  line.  You  may  discover  several  other 
ways  of  using  diis  facility,  and  they  usually  all  save 
small  amounts  of  memory. 

3.  PRINTing  c«i  screen  uses  up  varying  amounts  of  memoiy 
if  you  have  less  than  3ViK  of  memory  in  use,  because 
your  computer  fills  up  a  line  on  the  screen  with  spaces  up 
to  where  you’ve  started  PRINTing.  So  PRINTing  on  the 
right-hand  side  of  the  screen  will  use  up  more  memory 
than  PRINTing  on  ttie  left-hand  side.  Try  to  PRINT  on 
the  left  side  of  the  screen  if  you’re  short  of  memory. 
Frequent  use  of  CLS  to  clear  up  redundant  material  on 
screen  can  telp  greatly. 

4.  If  you  want  to  store  information,  you  can  place  it  in 
some  of  the  system  variables  that  are  POKEable.  (For 
example,  you  can  use  the  unused  threesome  of  16417, 
16507,  and  16508  and  the  printer  buffer  from  16444  to 
16476  if  the  printer  is  not  being  used  at  the  time.  Like  all 
system  variables  from  16393  onwards,  the  values  stored 
in  these  are  saved  on  tape.) 

5.  When  you  type  a  line  l&e  50  LET  Y  =  5,  then  when  the 
program  is  RUN,  the  variable  Y  is  copied  into  the  vari¬ 
ables  area  and  occupies  6  bytes  there  as  well  as  15 
in  the  program  area.  If  you  are  short  of  memory,  you  can 
enter  LET  Y=5  as  a  direct  command,  leave  out  line  50, 
and  start  the  program  with  a  GOTO  command,  and  you 
have  saved  15  bjTes  every  time.  Beware  though — if  you 
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enter  RUN  or  CLEAR,  then  you’ve  lost  your  variables, 
so  only  use  this  as  a  last  resort. 

6.  If  you  want  to  generate  random  numbers  several  times  in 
a  program,  then  you  could  either  do  this  in  a  subroutine, 
or  have  a  string  variable  like  LET  M = INT  (RND*10)  + 1  ” . 
Every  time  you  want  a  random  number  you  can  type 
LET  A  =  VAL  AS,  which  surprisingly  enough  works  be¬ 
cause  VAL  sees  the  expression  in  AS  as  beings  valid 
numerical  expression. 

7.  Finally,  the  golden  rule.  If  you  can’t  make  a  program  fit 
into  the  amount  of  memory  on  your  computer,  try  rewrit¬ 
ing  the  program  completely  to  see  if  you  can  find  a 
shorter  way  of  doing  the  same  thing. 


How  can  i  find  out  how  much  memory 
Tve  used  up? 

There  are  several  methods  depending  on  what  you  want  to 
know.  If  you  want  to  find  or  compare  the  length  of  just  the 
listing,  all  you  need  to  do  is  find  where  the  display  file  starts, 
since  this  always  follows  on  from  where  the  program  ends. 
Use  this  expression  as  a  direct  command,  since  it  is  dealt 
with  by  an  area  of  memory  independent  of  the  program  and 
therefore  does  not  affect  the  result; 

PRINT  PEEK  16396 +a56*PEEK  16397 

This  gives  you  the  start  of  the  display  file.  To  obtain  the 
length  of  the  program,  we  need  to  subtract  the  address  of 
where  the  program  starts,  which  is  always  16509.  So  we  can 
rewrite  the  expression  as; 

PRIhrr  PEEK  16396 +2S6JtPESlht 
16397-  16509 

If  you  substituted  16384  for  the  16509  in  the  expression 
above,  then  you  would  get  an  answer  that  included  the  system 
variables  as  well  as  the  program. 

A  very  useful  expression  is  PRINT  PEEK  16404  +  256*PEEK 
16405-16384,  which  tells  you  the  number  of  bytes  you’ve 
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used  for  system  variables,  program,  variables,  and  display. 
Used  in  a  program,  it  gives  a  figure  that  includes  space 
currently  used  by  Ae  display,  variables,  system  variables, 
and  program.  If  you  want  to  use  it  just  once  or  twice  that’s 
fine,  but  if  you’re  likely  to  use  it  very  often,  you  may  like  to 
use  this  machine  code  routine.  Use  a  hex  loader  to  enter  these 
bytes  of  hex  into  spare  memory  above  RA^TOP  or  in  a 
B£M  statement  at  the  beginning  of  the  program.  You  will 
need  13  bytes  for  the  routine. 


HEX 

ASSEMBLER 

NOTES 

2A1440 

LD  HL,  (16404)  Copy  the  E-line  system  variable 
into  the  HL  register  pair. 

010040 

LD  BC,  16384 

Load  address  of  start  of  RAM  Into 
the  BC  register  pair. 

C600 

ADD  A,0 

Reset  carry  flag  to  0. 

ED42 

SBC  HL,  BC 

Subtract  BC  from  HL. 

44 

LDB,H 

Copy  H  register  contente  into  B 
register. 

4D 

LDC,L 

Copy  L  register  contents  into  C 
register. 

C9 

RET 

Return  to  BASIC. 

If  you  PRINT  USR  30000  (or  whatever  die  start  address  of 
the  routine  is),  you  will  quickly  get  your  value.  Provided  you 
don’t  switch  off  and  the  routine  is  placed  in  RAM  above  the 
address  in  RAMTOP,  you  can  happily  LOAD  and  RUN 
programs  without  affecting  the  routine,  so  it  is  always  there 
when  needed. 

HEX  RSSEHBL.ER 


SR14.4.0 

@10040 

C600 

EDd-S 

44 

40 

C0 


LD  HL^ f 16404) 
I.D  16384 

ROO  R  /  0 
SBC  HL^eC 
LD 

LD  C,L 
RET 
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Code  Character  Tables 


CODE  CHARACTER 

CODE  CHARACTER 

CODE  CHARACTER 

0 

Space 

28 

0 

56 

S 

1 

G 

29 

1 

57 

T. 

2 

□ 

2 

58 

U 

3 

jjjjjjU  ‘ 

31 

3 

59 

V 

4 

Q 

32 

4 

60 

W 

5 

E 

33 

5 

61 

X 

6 

2 

34 

6 

62 

Y 

7 

35 

7 

63 

Z 

8 

m 

36 

8 

64 

RND 

9 

37 

9 

65 

INKEYS 

10 

H 

38 

A 

66 

PI 

11 

ff 

39 

B 

67 

not  used  . 

12 

£ 

40 

C 

68 

not  used 

13 

S 

41 

D 

69 

not  used 

14 

42 

E 

70 

not  used 

15 

? 

43 

F 

71 

not  used 

16 

( 

44 

G 

72 

not  used 

17 

) 

45 

H 

73 

not  used 

18 

> 

46 

1 

74 

not  used 

19 

< 

47 

J 

75 

not  used 

20 

48 

K 

76 

not  used 

21. 

+ 

49 

L 

77 

not  used 

22 

M 

78 

not  used 

23 

X 

51 

N 

79 

not  used 

24 

/ 

52 

0 

60 

not  used 

25 

53 

P 

81 

not  used 

26 

54 

Q 

62 

not  used 

27 

. 

55 

R 

83 

not  used 
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CODE  CHARACTER  CODE  CHARACTER  CODE  CHARACTER 


84 

not  used 

85 

not  used 

86 

not  used 

87 

not  used 

88 

not  used 

89 

not  used 

90 

not  used 

91 

not  used 

92 

not  used 

93 

not  used 

94 

.  not  used 

95 

not  used 

96 

not  used 

97 

not  used 

98 

not  used 

99 

not  used 

100 

not  used 

101 

not  used 

102 

not  used 

103 

not  used 

104 

not  used 

105 

not  used 

106 

not  used 

107 

not  used 

108 

not  used 

109 

not  used 

110 

not  used 

111 

not  used 

112 

cursor  up 

113 

cursor  down 

114 

cursor  left 

115 

cursor  right 

116 

GRAPHICS 

117 

EDIT 

118 

ENTER 

119 

RUBOUT 

IkCTi 

121 

FUNCTION 

122 

not  used 

123 

not  used 

124 

not  used 

125 

not  used 

126 

number 

127 

cursor 

•  K>. 
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192  "  " 

183  AT 

194  TAB 

195  not  used 

196  CODE 

197  VAL 

198  LEN 

199  SIN 

200  COS 

201  TAN 

202  ASN 

203  ACS 

204  ATN 

205  LN 

206  EXP 

207  INT 

208  SQR 

209  SON 

210  ABS 

211  PEEK 

212  USR 

213  STRS 

214  CHRS 

215  NOT 

216  XK 

217  OR 

218  AND 


CODE  CHARACTER 


219  <» 

220  >« 

221  <> 

222  THEN 

223  TO 

224  STEP 

225  LPRINT 

226  LLIST 

227  STOP 

228  SLOW 

229  FAST 

230  NEW 

231  SCROLL 

232  CONT 

233  DIM 
234-  REM 

235  FOR 

236  GOTO 

237  GOSUB 

238  INPUT 

239  LOAD 

240  LIST 

241  LET 

242  PAUSE 

243  NEXT 

244  POKE 

245  PRINT 


CODE  CHARACTER 

246 

PLOT 

247 

RUN 

248 

SAVE 

249 

RAND 

250 

IF 

251 

CLS 

252 

UNPLOT 

253 

CLEAR 

254 

RETURN 

255 

COPY 
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Error  report  codes 


0  Successful  completion  of  program  or  direct  command. 

1  NEXT  with  no  FOR,  but  there  is  a  variable  of  the  same 
name. 

2  This  means  an  undeHned  variable  has  been  used.  It  can  be 
an  undefined  string  (A®,  numerical  variable  Oike  A  or  ZP4), 
or  an  element  of  a  string  or  numeric  array  (such  as  AS(4) 
when  DIM  AS(4)  has  not  been  used  previously  in  the 
ITOgram).  The  error  also  comes  up  if  die  computer  comes 
across  a  NEXT  line,  where  there  is  no  FOR  of  that  name, 
and  the  control  letter  of  the  loop  (like  A  in  FOR  A  =  1 
TO  50)  has  not  previously  been  used  as  a  variable  in  the 
program. 

3  Subscript  out  of  range.  This  will  occur  when,  for  example, 
the  array  has  been  set  up  to  cope  with  four  elements — 
DIM  A(4) — and  reference  was  made  to  A(5).  If  the  subscript 
is  negative  or  greater  than  65535,  the  error  code  B  will  be 
given. 

4  Memory  is  fuD. 

5  Screen  is  full. 

6  Arithmetic  overflow. 

7  RETURN  with  no  corresponding  GOSUB. 

8  INPUT  used  as  a  command. 

9  Program  halted  by  STOP. 

A  Invalid  argument  to  certain  functions. 

B  Integer  out  of  range. 

C  The  text  of  the  (string)  argument  of  VAL  dc^s  not 
form  a  valid  numerical  expression. 

D  Program  stopped  by  BREAK  or  by  a  STOP  command 
entered  in  an  INPUT  statement. 

E  Not  used. 

F  No  program  name  given  for  SAVE. 
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Keyboard  layout 


WORD 

HOW  OBTAINED 

WORD 

HOW  OBTAINED 

ABS 

FUNCTION  G 

LN 

FUNCTION  Z 

AND 

SHIFT  2 

LOAD 

J 

ARCCOS 

FUNCTION  S 

LPRINT 

SHIFT  S 

ARCSIN 

FUNCTION  A 

NEW 

A 

ARCTAN 

FUNCTION  D 

NEXT 

N 

AT 

FUNCTION  C 

NOT 

FUNCTION  N 

BREAK 

SPACE 

OR 

SHIFT  W 

CHRS 

FUNCTION  U 

PAUSE 

M 

CLEAR 

X 

PEEK 

FUNCTION  0 

CLS 

V 

PI/lT 

FUNCTION  M 

CODE 

FUNCTION  I 

PLOT 

Q 

CONT 

C 

POKE 

0 

COPY 

Z 

PRINT 

P 

COS 

FUNCTION  W 

RAND 

T 

CURSOR  <3  SHIFT  5 

REM 

E 

CURSOR  O  SHIFT  6 

RETURN 

Y 

CURSOR  O  SHIFT  7 

RND 

FUNCTION  T 

CURSOR  O  SHIFT  8 

RUBOUT 

SHIFT  0 

DIM 

D 

RUN 

R 

EDIT 

SHIFT  1 

SAVE 

S 

EXP 

FUNCTION  X 

SCROLL 

B 

FAST 

SHIFT  F 

I  SGN 

FUNCTION  F 

FOR 

F 

'  SIN 

FUNCTION  Q 

FUNCTION 

SHIFT  ENTER 

SLOW 

SHIFT  D 

GOSUB 

H 

SQR 

FUNCTION  H 

GOTO 

G 

STEP 

SHIFT  E 

GRAPHICS 

SHIFTS 

STOP 

SHIFT  A 

IF 

U 

STRS 

FUNCTION  Y 

INKEYS 

FUNCTION  B 

TAB 

FUNCTION  P 

INPUT 

I 

TAN 

FUNCTION  E 

I  INT 

FUNCTION  R 

THEN 

SHIFT  3 

'  LEN 

FUNCTION  K 

TO 

SHIFT  4 

LET 

L 

UNPLOT 

W 

LIST 

K 

USR 

FUNCTION  L 

LLIST 

SHIFT  G 

VAL 

FUNCTION  J 
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Punctuation  marks,  arithmetic  si^s,  graphics  symbols,  num¬ 
bers,  and  letters  are  not  shown  in  this  table.  They  can  be 
found  more  quickly  on  the  keyboard  than  in  a  chart  like  the  one 
on  page  193,  because  there  is  no  simple  and  obvious  method 
of  listing  them  like  the  alphabetic  characters  on  page  193. 


The  symbols  on  the  left-hand  side  of  the  chart  on  page  195 
are  the  first  hex  digits,  the  symbols  along  the  top  are  die 
second  hex  digits.  This  table  should  only  be  used  for  numbers 
from  0  to  255  decimal. 

To  convert  numbers  to  hex  in  the  range  0  to  65535,  follow 
this  procedure.  Suppose  the  number  is  X.  The  first  two  hex 
digits  may  be  found  by  converting  the  value  obtained  by 
IOT(X/256)  using  thp  table  on  page  195.  Then,  the  remaining 
two  digits  are  obtained  by  converting  the  value  obtained  from 
X-(INT(X/256))*256  using  the  table  on  page  195. 

decimal  loader 

t-ET 

a©  JNPUT  B 
3©  SCROL.I. 

4.0  PRINT 
5©  POKE 
6©  LET  H=R-yi 
T©  GOTO  a© 

For  this  program  to  work,  you  should  have  a  REM  state¬ 
ment  as  the  first  line  of  the  BASIC  program  with  at  least  the 
same  amount  of  characters  as  the  length  of  the  machine-code 
routine;  for  example,  if  you  had  a  five-byte  machine-code 
routine,  you  should  have  something  like 

X  REN  1234..^ 

(You  could  have  any  characters  after  the  REM,  of  course— 
the  numbers  12345  have  only  been  included  as  an  example.) 
When  you  come  to  run  the  loader  program,  enter  the  machine 
code  in  decimal  numbers  (from  0  to  255)  one  number  at  a 
time.  The  address  and  the  value  of  that  address  are  shown  on 
screen. 
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W 

CO 

E 

o 

o 

“O 

<0 

X 

o 


CO 

E 

o 

o 

■o 

<u 

■5. 

JD 

O) 

C 

*5 

(0 

c 

o 

» 

w. 

a> 

> 

c 

o 

o 


UL 

to 

ymm 

N. 

CO 

CJ5 

ID 

CO 

05 

D 

K 

CO 

C75 

iD 

fmm 

CO 

CD 

K 

a> 

CM 

iD 

K 

<75 

0 

CM 

CO 

ID 

T“ 

T— 

ymm 

1— 

T“ 

CM 

CM 

CM 

CM 

Ul 

o 

<D 

CM 

90 

0 

CD 

CM 

00 

0 

g  CM 

00 

T“ 

CO 

CD 

K 

a> 

T“ 

CM 

ID 

05 

0  CM 

CO 

ID 

T** 

T*- 

CM 

CM 

CM 

CM 

CO 

o> 

m 

T" 

CO 

<75 

ID 

K 

CO 

<75 

ID 

T- 

K 

CO 

o 

CM 

CD 

K 

o> 

0 

CM 

ID 

K 

00 

0 

CM 

CO 

D 

T" 

T" 

CM 

CM 

CM 

CM 

o 

CM 

00 

O 

CD 

CM 

00 

g 

CD 

00 

0 

CD 

CM 

T* 

CM 

CD 

K 

o> 

0 

CM 

D 

K 

00 

0 

CM 

CO 

D 

T“ 

T“ 

CM 

CM 

CM 

CM 

K 

CO 

<3> 

ID 

K 

CO 

05 

D 

K 

CO 

C75 

ID 

m 

T“ 

CM 

ID 

<5> 

0 

CM 

CO 

D 

K 

00 

0 

IT" 

CO 

ID 

T“ 

T- 

T- 

CM 

CM 

CM 

CM 

o 

<o 

CM 

CD 

0 

CD 

CM 

00 

0 

CD 

CM 

00 

0 

< 

CM 

to 

h- 

O) 

0 

CM 

CO 

iO 

K 

00 

0 

CO 

to 

T~» 

CM 

CM 

CM 

CM 

0) 

CJ> 

tn 

■r“ 

h- 

cn 

ID 

T-" 

K 

CO 

<75 

D 

K 

CO 

05 

CM 

ID 

K 

CO 

0 

CM 

CO 

ID 

CD 

00 

0 

CO 

T“ 

IT" 

T— 

T“ 

CM 

CM 

CM 

CM 

00 

o 

CD 

CM 

00 

0 

CD 

CM 

00 

0 

CD 

CM 

CM 

tn 

K 

CD 

0 

CM 

CO 

ID 

CD 

00 

0 

CO 

<o 


u> 


« 


C4 


T-  T-  CM  CM  <M  CM 

t^coo>u5-r-h-eoo)if)T-h-«g>tnt-t^ 
CMCOlOKOOO'r-COmcDoSOJ’t-CO'M- 
■r-f— T-T“t— t— •»— CMCMCM 

(DCMOO'M-OCDCMCO'd-OCDCMOO’M-OCO 
cMcomh'-coot-cosncoooojT-co'M- 
T-1— t— ■»— t-t-CMCMCM 

ini-h>.coo)mi-h~coo)mi-h>.coc»in 

CMCOiO<OOOO^W'M-<DOOO)'r-CM'»t 

v“t~t~i”^t~t“CMCMCM 

'M-OtDCM00'M-O<0CM00'>$O<0CM00-«t 

CMC010<000Ot-C0'M-<0000)i-CM'!1- 

T—  T—  T—  T—  ^^T-CMCMCM 

coo)mt-i^coo>tOT-h~coo)»nT-h~co 

T-COlOCOOOO)T-CO^<Dh~0)i-CM:S 

i-T-T-ir-.,-T-CMCMCM 


CMOO'«tQ<DCMOO>«tO<OCMOO'«tOtDCM 
T-coio<oa3O>T-c0”«ta>h«.c»-r-cM”«t 
T—  1—  T—  T—  CMCMCM 


■h~coo)»n-r-r^coo)iOt-h>coo)U5T- 
■i-CO'M-<DOOC»i-CM'M-<Dh~C»OCM'M- 
T-T-T-T—  T-T“CMCMCM 

itOCMOP'M'OCDCMOO^OpCMOO'M-Q 

T-C0^<0000)T-CM'*<0h~0)OCM'«t 

t--i-'»-T-^i-CMCMCM 


Oi-CMC0^U5C0h>.000)<CDOQiyU. 
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hexadecimal  loader 


1 

i©  L£T  R  =  1^514. 
a©  LFT  R4?*'*'’ 

3©  IF  R$=““  THEN  INPUT  R$ 

4-©  IF  R$C1W"©'*  OR  R$  CIJ  > ’‘F*’  T 
HEN  STOP 

5©  POKE  R.,  16*eODE  R$  Cl)  +CODE  R 
$  C2)  -ATS 

S©  SCROL-L. 

T©  PRINT  R:TRB  10.:  fi$  C  TO  2).;TR 


S  2©.:  PEEK  R 

a©  L-ET  RsrR-H 
90  L.ET  Rl^sR^  C3  TO  ) 
•10©  GOTO  3© 


For  this  program  to  work,  you  should  have  a  REM  state¬ 
ment  as  the  first  line  of  the  BASIC  program  with  at  least  the 
same  amount  of  characters  as  the  length  of  the  machine-code 
routine  (remember  that  there  are  two  digits  of  hex  for  every 
byte  of  machine  code,  e.g.,  Cl  C9  occupies  two  bytes). 
Wien  you  run  the  loader,  you  can  enter  any  amount  of  the 
machine  code  at  a  time  as  long  as  it  is  in  complete  bytes  (i.e., 
you  haven’t  got  odd  characters  at  the  end).  To  stop  the 
program,  enter  any  character  which  is  not  a  hex  character, 
,  i.e. ,  not  in  the  range  0  to  F  (e.g. ,  X  or  STOP).  The  addresses, 
hexadecimal  values,  and  decimal  values  are  displayed  on  the 
screen. 

If  you  wish  to  place  machine  code  in  areas  of  memory 
other  tihan  REM  statements  in  the  first  line  of  a  BASIC 
program,  merely  replace  the  16514  in  line  10  of  both  pro¬ 
grams  with  the  start  address  of  the  routines. 


Simulating  2K  if  you  have 
more  memory 


If  you  have  a  RAMPACK  but  wish  to  develop  a  program 
for  2K  or  merely  wish  die  display  file  to  contract  to  its 
minimum  form  consisting  of  only  ENTER  characters  for 
any  reason,  you  can  do  this  by  altering  the  system  variable 
RAMTOP  to  18432  as  it  would  be  in  a  2K  system.  Before 
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you  start  this  program,  enter  these  statements  as  commands  in 
the  direct  mode: 

POKE  16388,0 
POKE  16389 , 7a 
NEW 

(The  first  statement  is  not  usually  required  because  16388 
normally  has  a  value  of  0.) 


Postscript 

WHAT  DO  THESE  PROGRAMS  DO? 


1© 

FfiST 

a& 

SL.OU 

30 

GOTO 

10 

lO 

SL.CU 

ae 

P«ST 

30 

GOTO 

10 

Is  that  what’s  called  SAVEing  the  best  until  last? 


INDEX 


ABS  function,  128 
Add(  +  ),  121 
Addresses,  132-35 
“All  OK”  message  (0/0),  2, 
3 

Alphabetizing,  153-56 
AND,  4,  38 
in  IF/THEN/GOTO 
statements,  46,  47, 
49-51 

Apostrophe  (’),  180 
Argument  of  a  function,  20 
Arithmetic  mean,  125 
Arithmetic  operations, 
121-22 

converting  from  a 
“foreign”  program, 

170 

general  functions, 

128-31 

life  cycle  of  two 
species,  simulation  of, 
127-28 

priorities  of,  121-22 
progressions,  arithmetic, 
122-25 

statistical  routines,  125 
symbols  for,  121 
See  also  Direct 
calculation  mode 


Arithmetic  signs,  syntax 
error  marker  and,  42 
Arrays 

converting  from  a 
“foreign”  program, 
162 

definition  of,  70 
DIMensioning,  70-76 
multidimensional, 

71-73 

one-dimensional,  71-74 
string,  see  String  arrays 
Asterisk  (*),  27 
in  moving  graphics 
programs,  100-3 


Base-10  logarithms,  181-82 
BASIC  Invaders,  1 15-20 
BASIC  programs,  see 
Converting  other 
BASIC  programs 
Blob  Catcher  game,  48-50 
Bullfight  game,  23-25 
Business  uses,  146-56 
alphabetizing,  153-56 
lining  up  numbers, 
150-53 

money  manipulation, 
146-49 
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INDEX 


Calculator  mode,  7,  128 
See  also  Arithmetic 
operations 

Cassette,  recording  a 
program  on  a,  15 
Cassette  recorder 
LOAD  problems  and, 
15-16 

SAVEing  fH-ograms  on, 
15—17 

Character  set,  76-77 
CHRS  66,  77 
Clearing  a  part  of  the 
display,  90 

Clearing  the  memory,  3, 
10-11 

CODE,  saving  space  using, 
184 

Code-breaker  game,  73-75 
Code  character  tables, 
189-91 

CODE  XS,  77 
Combat  program,  31-33 
Comma,  11,  12 
Compound  interest  program, 
33-34,  146-49 
Conditional  brandi,  45 
Conditional  statements, 
45-58 

See  also  IF/THEN/ELSE 
statements;  IF/THEN/ 
GOTO  statements 
Converting  other  BASIC 
programs,  161-82 
apostrophe,  180 
arrays,  162 
ASC,  CODE,  168 
Base-10  logarithms, 
181-82 


cursor  movement,  179-80 
DEF,  FNR,  166-67 
degrees  and  radians,  181 
DIM,  171 
DIV,  179 

drawing  diagonal  lines 
on  screen,  173-74 
ELSE,  174-75 
FOR/NEXT  loops, 

164-65 

GET,  GETS/,  171-72 
GOTO,  GOSUB,  163 
IF/THEN,  164 
INPUT,  165 
INSTR  (AS,  BS), 

178-79 

integer  arithmetic,  170 
integers,  162 
LEFTS,  RIGHTS, 

MIDS,  162 
LET,  162-63 
logical  expressions, 
170-71 

matrices,  176-77 
MOD,  179 

ON/GOTO,  ON/GOSUB, 
163 

PEEK,  165 
%  (percent  symbol), 

182 

PRINT,  165 
PROC,  ENDPROC, 
177-78 

?  (question  mark), 

182 

random  numbers, 

167-68 

READ,  DATA, 

*  RESTORE,  168-70  ' 
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REPEAT/UNTIL, 

175-76 

SCREENS,  POINT, 
180-81 

SET,  RESET,  172 
TAB,  181 

undefined  variables,  176 
VAL,  172 
Coordinates,  38-42 
four-character,  40-41 
COS  function,  131 
Crasher  game,  103,  104, . 
108-15 

Crashes,  system,  138-39 
Crickets  program,  28-29 
Cursor  1 

movement  of,  179-80 


DATA,  168-70 
Decimal  loader  program, 
194 

Decimal  points,  19 
STRS  function  and, 
81-83 

Decimals,  single-byte, 
conversion  to 
hexadecimals,  194-95 
DEF,  FNR,  conversion 
from  “foreign” 
programs,  166-67 
Degrees  and  radians, 
conversion  of,  181 
DELETE  key,  4 
Diagonal  lines,  173-74 
Dice,  random  number 
program  for  rolling, 
21-23 

DIM  command,  70-76 


converting  from  other 
programs,  171 
Direct  calculation  mode,  7, 
128 

See  also  Arithmetic 
operations 
Displays,  90-94 
flashing,  96-97 
See  also  Moving  graphics; 
Screen 
DIV,  179 
Divide  (/),  121 
Documentation,  159 
Downward  SCROLL, 

91-93 


EDIT  function,  4 
ELSE,  55-58 
See  also  IF/THEN 
ELSE  statements 
END,  conversion  from 
other  programs,  165 
ENDPROC,  conversion 
from  other  programs, 
177-78 

Error  message,  7-8 
Error  report  B/20,  95 
Error  report  codes,  192 
suppressing,  138 
EXP  function,  130 
Exponentiation,  conver¬ 
sion  from  other 
programs,  166 


Factorial,  125 
FALSE,  46-47 
Fare  program,  52-53 
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FAST  mode,  2-3 
Flashing  display,  96-97 
Floating  point  number,  19 
FOR/NEXT  loops,  59-66, 
184 

converting  from  other 
programs,  164-65 
in  moving  graphics 
programs,  98 
in  Road  Runner  game, 

88 

STEP  command  in, 

63-^ 

Frame  counter  (timer), 
88-89,  136-37 
Functions,  3-4 
See  also  specific  functions 


Games 

BASIC  Invaders,  115-20 
Blob  Catcher,  48-50 
Code-Breaker,  73-75 
Crasher,  103,  104, 
108-15 

Garbage  Gobbla-, 

106-7 

GOTO  at  end  of,  18 
Maze  Maker,  85-86 
Prediction,  84-85 
random  numbers  for, 
19-25 

Road  Runner,  86-88 
Submarine  Race,  68 
UFO,  104-6 
Garbage  Gobbler  game, 
106-7 

Geometric  mean,  125 
GET,  GETS/,  171-72 


Godwin,  Nick,  150 
GOSUB  command,  67-69 
converting  from  other 
programs,  163 
GOTO  statement,  18,  157, 
159-60 

converting  from  other 
programs,  163 
Graphics  mode,  5 
See  also  Moving 
graphics 


Harmonic  mean,  125 
Hexadecimal  loader 
program,  198 

Hexadecimals,  conversion  of 
single-byte  decimals 
to,  194-95 


IF  NOT/THEN  statement, 
47 

IF/THEN/ELSE  statement, 
55-58,  174-75 
IF/THEN  GOTO 

statements,  45-54 
AND  in,  46,  47, 

49-51 

in  Blob  Catcher  game, 
48-50 

NOT  in,  47,  49,  53-54 
OR  in,  46,  52-53 
relational  operators  in, 

45- 47 

strings  and,  47-48 
TRUE  and  FALSE  in, 

46- 47 

values  in,  48-50 
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with  two  or  more 
conditional  expres¬ 
sions,  46 

IF/THEN  statement,  45 
ccmverting  from  other 
programs,  164 
saving  space  and, 

186-88 
Indexes,  154 
INKEY8  function,  84-89 
in  moving  gra^^ics 
programs  ,98-100 
INPUT  statement,  30-44 
AND  and  OR  and,  38 
in  combat  program, 
31-33 

in  compound  interest 
program,  33-34 
converting  from  other 
programs,  165 
coordinates,  38-42 
detecting  a  given  word  in 
an,  36 

numeric,  42-43 
rejection  of  null 
(invalid)  INPUTS, 
34-36 

rerunning  a  program  and, 
34-37 

search  words,  36-38 
stopping  a  program 
during  a  string  of,  34 
INSTR(Ag,  BS), 

178-79 

Integer  arithmetic, 

converting  from  other 
programs,  170 
Interest,  compound,  33-34, 
146-49 


INT  function,  128-29 
converting  from  other 
programs,  162 
Invaders  game,  1 15-20 


Keyboard,  1-2 
layout  of,  193 
Keywords,  1,  3 
K  (kilobyte),  16 


LEFTS,  converting 

from  other  programs, 
162 

Leftward  SCROLL,  91-93 
Length  of4>rograms, 
140-41 
LEN  XS,  77 
LET  statement,  27,  29 
converting  from  other 
programs,  162-63 
Life  cycles  of  two 

species,  simulation  of, 
127-28 

Line  numbers,  saving 
space  with,  185-86 
Lining  up  numbers, 

150-53 

Link  words,  see  Relational 
operators 

LIST  command,  9-10 
LN  function,  130 
LOADS  problems,  15-16 
Logarithms,  base- 10, 
181-82 

Logical  expressions,  47 
converting  from  other 
programs,  170-71 
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Loops,  59-66 
FOR/NEXT, 
FOR/NEXT  loops  * 
nested,  61-63 
REPEAT/UNTIL, 
175-76 

LPRINTing,  150-53 


Matrices,  converting  from 
other  programs, 

176-77  . 

Maze  Maker  program, 

85-86 

Mean,  125 

Memory 
clearing  the,  3, 

10-11 

determining  amount  of 
memory  used  up, 

187-88 

saving,*  183-88 
simulating  2K  if  you  have 
more,  196-97 
16K  RAMPACK,  16 
strings  used  to  save, 

83-84 

MID8,  converting  from 
other  programs, 

162 

MOD,  converting  from  other 
programs,  179 

Months,  array  of  names  of, 
78-80 

Moving  graphics,  95-120 
asterisk  in,  101-3 
blobs,  95-98 
conditional  expressions 
used  to  control,  49-50 


controlling  movement 
on  the  screen,  99-101 
error  report  B/20, 

95  . 

flashing  display,  96-97 
FOR/NEXT  loop  in,  98 
INKEYS  in,  98-100 
PEEK  and  POKE  in, 

104 

PRINT  AT  statement 
in,  103,  104 
PRINT  in,  103-4 
RUNning  the  program, 
100-1 

with  strings,  112-15 
Mug  traps,  159 
Multiple  statement  lines, 
converting  from  other 
programs,  161 
Multiply  (*),  121 


Nested  loops,  61-63 
NEW  command,  10-11 
NEW  key,  5 
Noneditable  lines, 

141-43 

NOT,  in  IF/THEN  GOTO 
statements,  47,  49, 
53-54 
Numbers 

lining  up,  150-53 
random,  see  Random 
numbers 

saving  space  and, 
184-87 

Numeric  INPUTS,  42-43 
Numeric  variables,  26-27 
29 
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ON/GOSUB,  convert¬ 
ing  from  other 
programs,  163-64 
ON/GOTO,  converting 
from  other  programs, 
163-64 

Operators  (link  and 
comparison  words 
and  symbols),  4,  12 
relation,  35-36,  45-47 
OR 

in  IF/THEN  GOTO 
statements,  46,  52-53 


PAUSE  command,  frame 
counter  and,  89 
PEEK  and  POKE,  88, 
132-45 

addresses  and,  132-35 
converting  from  other 
programs,  165 
in  Crasher  game,  111-12 
definition  of,  132 
determining  amount  of 
memory  used  up, 
187^88 

into  the  display  file, 

137 

inserting  noneditable 
lines  into  listings, 
141-^3 

length  of  programs  and, 
140-41 

in  moving  graphics 
^  programs,  104 
preventing  a  screen 
memory  overflow, 
143-45 


into  REM  statements, 

135 

suppressing  the  error 
report  codes,  138 
system  crashes,  138-39 
time  and,  136-37 
24-line  screen  and,  137 
Percent  symbol  (%),  182 
PLOT,  173 
POKE 

definition  of,  132 
See  also  PEEK  and  POKE 
PREDICTION  program, 
84-85 

PRINT  AT  statement, 

16-17 

in  moving  graphics, 

103,  104 

PRINT  command,  7-12 
converting  from  other 
programs,  165-66 
in  direct  calculation  mode, 

7 

formatting,  11-12 
in  moving  graphics 
programs,  103-4 
quote  marks  for  words, 

8 

saving  space  and, 

186-88 

string  arrays,  78-80 
TAB  command  and,  13 
PRINT  FORMATS 
program,  11-12 
PRINT  TWO-B  program, 

12 

PRINT  TWO-C  program, 

12 

PRINT  TWO-D  program,  12 
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PRINT  TWO-E  program, 

13 

PRINT  TWO-F  program, 

13 

PRINT  TWO  program,  12 

Priorities,  47,  121-22 

PROC,  ENDPROC, 

177-78 

Programs,  141 

FAST  mode  for  entering, 
2 

first,  8-10 
improving,  157-60 
length  of,  140-41 
SAVEing,  15-17 
title  of,  1 1 
See  also  specific 
programs 

Progressions,  arithmetic, 
122-25 


Q  key,  49 

Question  mark  (?),  182 
Quote  image,  49 
Quote  marks 
printing  words  within,  8 
from  the  Q  key,  49 


Radians  and  degrees, 
conversion  of,  181 
Raise  to  the  power 
-(♦♦-shift-H),  121 
See  also  Exponentiation 
RAM  (random  access 
memory),  134, 
140-41 

RAMPACK,  16 


RAMTOP,  in  Crasher  game 
111 

RAND  function,  168 
Random  numbers,  19-25 
Bullfight  game  using, 
23-25 

for  rolling  dice,  21-23 
saving  space  with,  187 
Relational  operators,  35-36, 
45-47 

REM  statement,  8-9,  135, 
157 

REPEAT/UNTIL  loop, 
175-76 
RESET,  172 

RESTORE  command,  169 
RETURN,  GOSUB 

command  and,  67-69 
RIGHTS,  converting  from 
other  programs,  162 
Rightward  SCROLL,  92 
RND  function,  130 
Road  Runner  game,  86-88 
ROM  (read-only  memory), 
133-34 

RUN  command,  10 
in  moving  graphics 
programs,  100-1 


SAVEing  programs,  15-17 
Saving  space,  183-88 
Scientific  notation,  122 
Screen,  90-94 
clearing  a  part 
of  the,  90 

controlling  movement 
on,  99-101 
diagonal  lines  on,  173 
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preventing  a  screen 
memory  overflow, 
143-45 

saving  lines  at  edges  of, 
92-94 

SCROLLing  in  BASIC, 
91-92 
24-line,  137 

See  also  Moving  graphics 
SCREENS,  POINT, 

180-81 

SCROLL  command,  13, 
91-94 

in  moving  graphics 
programs,  103 
with  wraparound,  93 
Search  words,  36-38 
Semicolon,  12 
SON  function,  130 
SHIFT  key,  1-2 
SIN  function,  130-31 
SLOW  mode,  2-3 
SQR  (square  root)  function, 
7,  130 

Statistical  routines,  125 
STEP  command,  63-66 
STOP  command,  10 
Stopwateh  program,  135-37 
String  arrays  (strings), 

75-76 

conditional  expressions 
applied  to,  47-48 
definition  of,  76 
handling  of,  76-77 
moving  graphics  with, 
112-15 

PRDSlTing,  78-80 
saving  lines  at  screen 
edges  and,  92-94 


STRS  function  and, 
80-84 

String  sort  program, 
75-76 

String  variables,  27-29 
STRS  A,  79 
STRS  function,  80-84 
Structured  approach  to 
programming,  159, 
177 

Submarine  race  program, 
68-69 

Subroutines,  67 
Subtract  (-),  121 
Syntax  error  marker, 
arithmetic  signs 
and,  4  ^ 

System  crashes,  138-39 
System  variables,  183, 
186 


TAB  command,  13-14, 
16,  130 

converting  from  other 
programs,  181 
Tabulator  Rocket  Range 
program,  63-66 
TAN  function,  131 
THEN,  4 

Title  of  programs,  11 
TO,  4 

Trigonometric  functions, 
130-31,  181 

TRUE  and  FALSE,  46-47 


UFO  game,  104-6 
Unconditional  branch,  18 
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Undefined  variables,  42 
converting  from  other 
programs,  176 
Upward  SCROLL,  91-93 


VAL,  42-44 
converting  from  other 
programs,  172 
saving  spac^  using, 

184 

strings  and,  83-84 
Values,  in  IF/THEN 
GOTO  statements, 
48-50 

VAL  XS,  79 
Variables,  26-29  - 
numeric,  26-27,  29 
relational  operators  used 
to  compare,  45-47 
string,  27-29 


system,  183,  188 
undefined,  42,  176 


Walsh,  James,  146 
Win  condition,  IF/THEN 
GOTO  used  to 
terminate  a,  54 
Wore!  processor  program, 
150-53 

Wraparound,  SCROLL  with, 
93-94 


XS  (n  TO),  77 
XS  (n  to  m),  77 
XS  (TO  3),  77 


0/0  message,  2,  3 
ZX80  computer,  184 
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